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1, ABSTRACT 

THIS MAXNDEC CONSISTS OF FOUR PROGRAMS, THE TWO MAIN PROGRAMS 
ARE PROGRAM ONE AND PROGRAM POUR, THESE PROGRAMS HILL 
BE DISCUSSED LATER, 

THE PURPOSE OF THIS DIAGNOSTIC IS TO VERIFY THE DATA IN 
THE ROM, MAKE SURE ALL ADDRESS HILL CAUSE A TIME OUT TRAP 
HHEN WRITTEN INTO (EXCEPT THE TRAP VECTORSI 173024, 17 J224) 

, AND ALERT THE OPERATOR AS TO WHAT THE OFFSET ADDRESS 
WOULD BE IF A SELECTED BUTTON Is PUSHED, 

NOTEI FOR NORMAL CONFIGURATIONS! THE ONLY PROGRAMS 
NECESSARY FOR ACCEPTANCE OF THE BM873 ARE PROGRAMS 
ONE AND FOUR, PROGRAM TWO IS NECESSARY FOR "NON-STANDARD" 
SETUPS AND IS A MAINTAINCE TOOL, PROGRAM THREE IS 
ALSO JUST FOR MAINTAINCE AID, 

2, REQUIRMENTS 

2.1 EQUIPMENT 

ANY PDP-11 FAMILY CPU 
UNIVERSAL RESTART LOADER 
TELETYPE OR EQUIVALENT 
LINE PRINTER (OPTIONAL) 

AT LEAST 4K OF MEMORY, 

2.2 STORAGE 

THIS PROGRAM RESERVES THE RIGHT TO USE ALL 
OF THE FIRST 4K EXCEPT WHERE BOOTSTRAP LOADER 
AND ABSOLUTE LOADER RESIDE, 

3, LOADING PROCEDURE 

THE PROGRAM MAY BE LOADED LIKE ANY OTHER PROGRAM 
SUCH AS! PAPER TAPE, DECTAPE MAGTAPE, DISK, ETC. 

MOST COMMON WILL BE THROUGH PAPER TAPE BY THE 
USE OF ABSOLUTE LOADER, 



DZBMD 

BM873D 


MACYlt 27(657) 3-MAR-75 11147 PAGE 3 

PU KAINDEC-ll-DZBMD-D BM073 UNIVERSAL RESTART LOADER DIAGNOSTIC, 


4, STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 

SWITCH 00 CLEARED INDICATES ONLY FIRST 129 

WORDS TO BE CHECKED. 

SET INDICATES EXTENDED 128. WORDS 
ARE TO BE CHECKED IN WHICH CASE 
PROGRAM 2 MUST BE RUN FIRST, 

WHEN RUNNING ON BM873YB, BM873YC, OR BM873YD, 2S6 WORDS 
ARE AUTOMATICALLY CHECKED. 

4.2 STARTING ADDRESS 

STARTING ADDRESS 000200 
RESTART ADDRESS 000210 

4.3 OPERATOR ACTION 

4.3.1 FOR NORMAL OPERATION (WITHOUT EXTENDED 128 WORDS) 

1, LOAD STARTING ADDRESS (000200) 

2, SET SWITCHES AS PER 5.1.1 (NORMAL ALL SWITCHES DOWN) 

3, PRESS START SWITCH AND RELEASE. 

4, DEVICE VERSION, 

WHEN PROGRAM IS STARTED FOR THE FIRST TIME THE FOLLOWING 
WILL BE PRINTED OUT! 

"DEVICE VERSION 
8M873-Y " 

THE OPERATOR WILL THEN SPECIFY THE VERSION BEING RUN, 

BM873-Y* IS ANY NON-STANDARD VERSION, 

NOTEf PROGRAM TWO MUST BE PUN FIRST, 

BM873-YA REPLACES M792-YA, MR1 1-DB.M792-YH 

8M873-YB MASSBUS 

SMS73-YC DDCMP BOOTSTRAP ROM 

BM873-YD KL10 (PDP-11) 256 BOOTSTRAP ROM 

5, THEN TYPE IN NUMBER OF PROGRAM TO BE RUN (NORMALLY PROGRAM 1 AND 4) 

6, HITTING CONTROL "G" WHILE PROGRAM IS RUNNING WILL CAUSE A RESTART. 
YOU MAY THEN INPUT DIFFERENT PROGRAM NUMBER, 

NOTEI RESTARTS AT ADDRESS 200 WILL GO TO STEP 5 ABOVE. 

RESTARTS AT ADDRESS 210 WILL GO TO STEP 3 ABOVE, 

4.3.2 IF YOU WISH TO TEST THE EXTENDED 128, WORDS THIS IS THE 
PROCEDURE! 

(NOT NEEDED FOR NORMAL TESTING OF BM873YB, BM873YC, OP BM873YD) 

1, LOAD STARTING ADD, 000200 

2, SET SW00»1 

3, SET HALT ENABLE SW AND SINGLE CYCLE SW UP 

4, HIT START SWITCH AND RELEASE. 

5, RUN PROGRAM 2 FOR ONE PASS, 

6, NOW ANY PROGRAM MAY BE RUN, 
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NOTEI VISUAL INSPECTION OF EXTENDED DUMP 

IS YOUR RESPONSIBILITY. THAT DATA WAS 

PLACED INTO SOFTWARE TABLE FOR TEST COMPARISON, 
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5, OPERATING PROCEDURE 

5.1.1 SWITCH SETTINGS (APPLICABLE IN ALL PROGRAMS) 

SW15 * 1 OR UP ... HALT ON ERROR 

SW13 a 1 OR UP ... INHIBIT ERROR PRINT OUT 

SW12 ■ 1 OR UP ... INHIBIT ALL PRINT OUT/ BELL ON ERROR, 

3WU a l OR UP ... INSTEAD OF EXERCISING EACH ADDRESS 10X DO IT IX, 

SW09 * 1 OR UP ... LOOP WITH CURRENT ADDRESS 

SW08 » 1 OR UP ,,, GOTO BEGINNING OF CURRENT PROGRAM ON ERROR 

6. ERRORS 

6.1 ERROR PRINT OUT 

ALL ERRORS WILL HAVE A PRINT OUT. IF IT WAS A COMPARISON 
ERROR) THE SOFT ADDRESS, ROM ADDRESS, EXPECTED DATA 
(FROM SOFTWARE MAP), AND THE FOUND DATA WILL BE PRINTED 
OUT, IF IT WAS A "NO TRAP WHEN WRITTEN" ERROR) THE 
ADDRESS WILL BE PRINTED OUT, IF IT WAS AN "UNEXPECTED TRAP " 

WHEN READING ROM THE ADDRESS WILL BE PRINTED , 
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6,2 ERROR RECOVERY 

1, ITS A GOOD IDEA TO LEAVE SW15»1 WHILE TEST RUNS 
TO PREVENT A RUN AWAY ERROR FROM GOING WILD 

IF YOU LEAVE THE CPU, 

2, IN AN ERRORl SET SW09al(LOOP ON THIS ADDR.) 

AND SET SW 13«1 (DELETE ERROR PRINT OUT), 

IF CPU IS HALTEDl HIT CONTINUE, 

3, NOW THE PROGRAM IS RUNNING AND YOU MAY SCOPE IT, 

7, RESTRICTIONS 

7.1 STARTING RESTRICTIONS 
SEE SECTION 4. 

7.2 OPERATING RESTRICTIONS 

7.2.1 ir OPERATING ON 11/4S| AND JUMPER HAS BEEN CUT FOR 
A POWER FAIL TO GOTO ADDRESS 1732001 

•••••• A POWER FAIL MUST NOT HAPPEN WHILE PRO IS RUNNING • 

7.2.2 IF YOU WISH PROGRAM TO TEST YOUR EXTENDED 12S, WORDSf 
YOU MUST START AS PER SECTION 4 AND THEN 

****** RUN PROGRAM 2 FIRST AND VISUALLY VERIFY DATA,*#** 
(NOT APPLICABLE TO BM873YB, BM873YC# OR BM873YD) 

7.2.3 YOU MAY NOT ALTER THE SOFTWARE MAP UNLESS— 

•••••• YOU KNOW WHAT YOU ARE DOING ***** 

7.2.4 THE ROM ADDRESS MUST START AT 173000 AND BE AT LEAST 

128 WORDS LONG, (256 FOR THE BM873YB# BM873YC » OR BM873YD) 

8, MISCELLANEOUS 

8,1 EXECUTION TIME 

PROGRAM ONE WILL PASS AT APPROX, FIVE MINS, 

PROGRAM TWO HAS NO END PASS! BUT WILL HALT AT COMPLETEION 
HIT CONTINUE TO PROCEED IN THIS PROGRAM, 

PROCRAN THREE (RUN) WILL PASS ApppOX, FIVE MINS. 

PROGRAM FOUR WILL PASS APPROX, FIVE MINS 
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9. 

PROGRAM DESCRIPTION 

9.1 

PROGRAM 1 


PROGRAM 1 WILL VERIFY THE DATA IN THE ROM AND THE VERIFY 
THAT WRITING THE ROM WILL TRAP OUT (EXCEPT THE VECTORS) 
EACH ADDRESS IS REFERENCED FIVE TIMES IN A ROW BEFORE 
UPDATING TO THE NEXT ADDRESS. 

IF SW00 WAS UP WHEN START WAS HIT, THE EXTENDED 
128 WORDS WILL BE CHECKED. 

256 WORDS WILL BE CHECKED AUTOMATICALLY IF 
BM873YB, BM873YC, OR BM873YD IS TESTED. 

9.3 

PROGRAM 2 


PROGRAM 2 WILL DUMP THE CONTENTS OF THE ROM ONTO THE 
TTY (OR LINE PRINTER IF SW07»1), NOTE NO VERIFICATION 
OF ANY KIND IS PERFORMED ON THE DATA, (AN ERROR WILL OCCUR 
IF A TRAP IS ENCOUNTERED WHILE READING) YOU MUST INSPECT 
THE DATA YOUR SELF, IF 8W00 WAS UP WHEN START WAS HIT 
THE EXTENDED 128, WORDS WILL BE PRINTED, 

256 WORDS WILL BE PRINTED IF BM873YB, BM873YC, OR BM871YD 
IS SELECTED 

NOTE! IF SW 07*1 PRINTING WILL BE DONE ON THE LINE PRINTER 
IF IT EXISTS. 

9.3 

PROGRAM 3 


PROGRAM 3 IS THE SAME As PROGRAM ONE EXCEPT THAT THE 
USER HAS THE ABILITY TO ALTER THE SOFTWARE MAP, 

LIST OR PRINT THE SOFTWARE MAP, AND RUN THE PROGRAM, 

NOTE THAT IF YOU ALTER THE MAP BE CAREFULL OF WHAT 
YOU CHANGE, 

FOR THE COMMANDS TO BE USED SEE TOP OF PROGRAM 3 IN THIS LISTING 


9.4 PROGRAM 4 

PROGRAM 4 CHECKS THE OFFSET ADDRESS WHEN THE SIMULATED 
PUSHING OF A BUTTON IS DONE BY THE SOFTWARE, ON THE FIRST PASS 
THE OFFSET IS TYPED OUT FOR YOU TO VERIFY (NOTE! 

THE PROGRAM HAS NO WAY OF KNOWING WHAT THE OFFSET WILL 
BE). AFTER THE DATA IS TYPED OUT IT IS STORED AWAY IN 
CORE, WHEN THE FIRST PASS IS FINISHED THE PROCESS IS 
REPETED ONLY NO TYPE OUT IS PERFORMED, AND THE DATA 
IN CORE IS COMPARED TO THE DATA FOUND AT THE ROM, 

DURING THIS TEST "WRITING" THE ROM IS PERFORMED. 

THE VECTORS (171024,173224) ARE "WRITTEN" AND ARE 
**NOT** EXPECTED TO TRAP. AN ERROR MESSAGE WILL BE 
REPORTED IF A TRAP IS DISCOVERED. 
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9.5 CONTROL "G" 

HITTING CONTROL "G" WILL GO TO THE BEGINING OF THE 

PROGRAM AND ASK FOR PROGRAM NUMBER, 

9.6 THIS PROGRAM IS "XXDP AND ACT-11" COMPATIABLEj 
AT PRESENT TIME IF IN CHAIN MODE UNDER ACT-11 OR 

XXDP THE PROGRAM AUTOMATICALLY DETERMINES ir THE ROM IS 

BM873YA OR YB, YC, OR YD By COMPARING THE 1ST WORD IN ROM WITH THE 

EXPECTED WORD, THE DIAGNOSTIC THEN RUNS 

PROGRAM 1 AND PROGRAM 4 BEFORE ENTERING THE MONITOR, 

9.7 ELECTRICAL PREQUISXTES (HARDWARE) 

9.7.1 THIS OPTION MUST BE ON THE CPU SIDE OF ANY BUS BUFFERS. 

9.7.2 NPR CYCLES ARE NOT PERMITTED DURING THE POWER UP TRAP 
SEQUENCE, 

9.7.3 ACLO AND DCLO MUST BE AVAILABLE AT BACKPLANE 

PINS "CV1" AND "CN1" RESPECTIVELY, THIS WIRING IS NOT 
PROVIDED ON THE "SPC" SLOTS OF THE 11/15, 11/20, 11/35, 

11/40, AND THE DD1 1-A| IT IS PROVIDED ON THE 11/05, AND 
11/45, ALSO ON THE DD11-B, IF FURTHER INFORMATION IS NEEDED 
CONSULT THE 8M873 MANUAL FOR HELP, 

NOTEl THE DIAGNOSTIC RUNNING WITHOUT ANY INTERFERANCE FROM 
THE USER HAS NO WAY OF CHECKING THE PRESENTS OF THE 
"ACLO" AND "DCLO" SIGNALS ON THE OPTION, 
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(BM873 YX 

tCOPYRIOHT MAR 1979* DIGITAL EQUIPMENT CORP,, MAYNARD* MASS, 017B4 

) starting PROCEDURE 
(LOAD PROGRAM 
I LOAD ADDRESS 000200 
(PRESS START 

(PROGRAM KILL TYPE "DEVICE VERSION 
( BMI7W " 

(THE OPERATOR KILL THEN SPECIFY THE VERSION, 

(AT THE END Of A PASS* PROGRAM HILL TYPE PASS COMPLETE MESSAGE 
(AND THEN RESUME TESTING 


(SWITCH REGISTER OPTIONS 


8W1 5*100000 

SKI 4*40000 

SWl J«20000 

SWl 2*10000 

SWl 1 *4000 

SW10*2000 

SW09*1000 

SK0i«400 

SW06*100 

SW05M40 

8W04«20 

0N03*10 

SH02*4 

SW0 1*2 

SW00«1 


f *1 * HALT ON ERROR 

1*1* INHIBIT ERROR PRINTOUT 
}*1 ^DELETE TYPEOUT/BELL ON ERROR, 

1*1 DO EACH ADDRESS 1 TIME INSTEAD OP 10 TIMES, 

f*l »LOOP KITH CURRENT DATA 

1*1 RETURN TO TOP Of CURRENT PROGRAM ON ERROR, 


1*1 TEST THE EXPANDED 128 WORDS 
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(REGISTER DEFINITIONS 

355 





356 


000000 

R0*%0 

(GENERAL REGISTER 

357 


000001 

R1*%1 

(GENERAL REGISTER 

358 


000002 

R2*%2 

(GENERAL REGISTER 

359 


000003 

R3»%3 

(GENERAL REGISTER 

360 


000004 

R4*%4 

(GENERAL REGISTER 

361 


000005 

R5*«5 

(GENERAL REGISTER 

362 


000006 

SP*%6 

(PROCESSOR STACK POINTER 

363 


000007 

PC*%7 

(PROGRAM COUNTER 

364 





365 



(LOCATION EQUIVALENCIES 

366 





367 


177570 

SWR»177570 

(CONSOLE SWITCH REGISTER 

368 


177570 

LIGHTS»1 77570 

(PDP-il/45 DI8PLAY REGISTER 

369 


177776 

PS*1 77776 

(PROCESSOR STATUS WORD 

370 


001200 

STACK*1200 

(START OF PROCESSOR STACK 

371 





372 



(INSTRUCTION DEFINITIONS 

373 





374 


005746 

PUSH1 SP*5746 

(DECREMENT PROCESSOR STACK ! 

375 


005726 

POP1 SP*5726 

(INCREMENT PROCESSOR STACK : 

376 


010046 

PUSHR0V10046 

(SAVE R0 ON STACK 

377 


012600 

POPR0*12600 

(RESTORE R0 FROM STACK 

378 


024646 

PUSH25P«24646 

(DECREMENT STACK TWICE 

379 


022626 

POP , SP*22626 

(INCREMENT STACK TWICE 

380 



, EQUI V EMT*HLT 

(BASIC DEFINITION OF ERROR < 

381 
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100000 

BIT1 5*1 00000 
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040000 

BIT1 4*40000 


385 


020000 

B IT1 3*20000 
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010000 

BIT12*10000 


387 


004000 

B IT! 1*4000 


388 


002000 

BIT10*2000 


389 


001000 

BIT9*1000 


390 


000400 

BIT8*400 


391 


000200 

BIT7-200 


392 


000100 

BITS* 1 00 


393 


000040 

BIT5*40 


394 


000020 

BIT4*20 


395 


000010 

BIT3*1 0 


396 


000004 

BIT2«4 
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000002 

BIT1 *2 
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BIT0* 1 
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800 

801 

802 001450 

803 001452 

804 001454 

805 001456 

806 001460 

807 001462 

808 001464 

809 001466 

810 001470 

811 001472 

812 001474 

813 001476 

814 

815 

816 001500 

817 001502 

818 001504 

819 001506 

820 
821 

822 001510 

823 001512 

824 001514 

825 001516 

826 001520 

827 001522 

828 001524 

829 001526 

830 001530 

831 001532 

832 001534 

833 001536 

834 001540 

835 001542 

836 

837 

838 001544 

839 001546 

840 001550 

841 001552 

842 

843 

844 001354 

845 001556 

846 001560 

847 001562 

848 001564 

849 001566 

850 001570 

851 001572 

852 001574 

853 001576 


010702 

000416 

172524 

060017 


000413 

060011 

000200 


000431 

060003 


010702 

000424 

176716 


010200 

005720 

005720 


016201 


012711 

177000 

011041 

105711 


I 173050 
1173052 
1173054 
1173036 
1173060 
1173062 
1173064 
1173066 
1173070 
1173072 
1173074 
1173076 


010702 

000416 

172524 

060017 

000200 


000413 

060011 

000200 


000431 

060003 


1173100 010702 
1173102 000424 
1173104 176716 
1173106 000005 


010200 

005720 


005720 

016201 


005311 

012041 

031011 

001776 

005720 

032041 

001063 

000110 


010702 

000402 

177450 


1173110 

1173112 

1173114 

1173116 

1173120 

1173122 

1173124 

1173126 

1173130 

1173132 

1173134 

1173136 

1171140 

1173142 


010200 

005720 


005720 

016201 


005311 

012041 

031011 

001776 

005720 

032041 

001063 

000110 


1173144 010702 
1173146 000402 
1173150 177450 
1173152 000005 


1173154 

1173156 

1173160 

1173162 

1173164 

1173166 

1173170 

1173172 

1173174 

1173176 


005720 

005720 


016201 

000002 

012711 

177000 

011041 

105711 


1 THIS IS THE START LOCATION FOR TMl 1 MAGTAPE CONTROLLER 


TMUl 


MOV PC # R2 i SET POINTER TO PARAMETER LIST 

BR TAPES 1 AND TRANSFER TO FIRST ROUTINE 

.WORD 172524 f DEVICE BYTE/RECORD COUNT REGISTER 

.WORD 60017 iDEVICE REWIND COMMAND 

.WORD 200 IDEVICE DONE FLAG 

.WORD 100000 iDEVICE ERROR FLAG BIT 

BR TAPESX I THEN TRANSFER TO NEXT SERVICE RTN 

.WORD 60011 iDEVICE FORWARD SPACE COMMAND 
.WORD 200 f SAME AS ABOVE 

.WORD 100000 {SAME AS ABOVE 

BR OTHERX f THEN TRANSFER TO READ/TRANSFER ROUTINE 

.WORD 60003 iDEVICE READ COMMAND 

I THIS IS THE START LOCATION FOR THE RP11 CONTROLLER 
RPlil MOV PC # R2 | SET POINTER TO PARAMETER LIST 

BR OTHER | TRANSFER TO TRANSFER ROUTINE 

.WORD 176718 iDEVICE WORD COUNT REGISTER 

.WORD 5 IDEVICE READ COMMAND 

I 

I THIS IS THE TAPE DEVICE SERVICE ROUTINE, 

TAPESI MOV R2»R0 i GET ADDRESS OF PARAMETER LIST 

TST (R0)4 fSKXP TWO WORDS FIRST TIME 

TAPESXi RESET |RESET ALL DEVICES 

TST (R0)4 I SKIP OVER BRANCH INSTRUCTION 

MOV 2(R2)*R1 i THEN GET DEVICE WORD/BYTE COUNT ADORES 


I 


DEC $R1 

MOV ( R0 ) ♦# * ( RJ 
TAPWATl BIT 9R0#8R1 
BEQ TAPWAT 
TST ( R0 ) 4 
BIT (R0)4,-(Rl 
BNE ERROR 
RETURNi JMP 8R0 
1 

1 THIS IS THE STARTING 
RC 111 MOV PC#R2 
BR OTHER 
.WORD 177450 
.WORD 5 

1 

I THIS ROUTINE PERFORMS 
OTHER! MOV R2#R0 
TST (R0J4 
OTHERXl TST (R0)4 
RESET 

MOV 2(R2)#R1 


I AND SET TO -l 

) | AND THEN ISSUE COMMAND TO DEVICE 
I WAIT FOR DEVICE COMPLETION 
)BY HANGING IN LOOP 
I AND THEN SKIP DONE FLAG 
) | THEN TEST FOR ERROR 
1 THERE IS ONE 

1 AND TRANSFER TO FOLLOWING INSTRUCTION 

ADDRESS FOR RCil DISK CONTROLLERS 
| SET UP POINTER TO PARAMETER LIST 
ITRANSFER TO SERVICE RTN 
IDEVICE WORD COUNT REGISTER 
iDEVICE READ INSTRUCTION 

THE ACTUAL TRANSFER TO MEMORY OF DATA 
| SET POINTER TO LIST IN R0 
1 SKIP TWO WORDS FIRST TIME. 

} SKIP PAST BR INSTRUCTION 
| REST THE WORLD 

1 OBTAIN DEVICE WORD COUNT ADDRESS 


MOV 8*1000# IR1 f THEN OBTAIN LARGE WORD COUNT 


MOV |R0#-(R1) 
OTHWATl TSTB |R1 


I AND PUT COMMAND TO DEVICE 
I WAIT FOR DONE FLAG 
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854 

855 001602 

856 001604 

857 001606 

858 

859 

860 
861 001612 

862 001614 

863 

864 

865 

866 001616 

867 

868 001620 

870 001622 

871 

872 

873 


100376 

005711 

100441 

005007 


012704 

177560 

000440 


1173200 100376 
1173202 005711 
1173204 100441 
1173206 005007 


1173210 012704 
1173212 177560 
1173214 000440 


BPL OTHWAT 
TST 8R1 
BMI ERROR 
CLR PC 


I BY HANGING IN LOOP 
I THEN TEST FOR ERROR 
{GOT PROBLEMS 
I AND TRANSFER TO ZERO 


I THIS IS THE STARTING ADDRESS FOR THE PC11 PAPER TAPE CONTROLLER 
KL11I MOV I177560#R4 y OBTAIN DEVICE ADDRESS 


BR CKDEV 


(AND TRANSFER TO READER SERVICE ROUTINE 


017640 1173216 

1173217 
002415 1173220 

1173221 
112024 1173222 

1173223 


240 
037 
015 
005 
024 
224 

INOTE 773024 AND 773224 


874 





1 THIS 

18 AN ADDITIONAL 

875 

001624 

173000 

1173224 

173000 

POWER2I .WORD RF11 

876 

001626 

000340 

1173226 

000340 


.WORD 340 

877 





1 


878 





1 THIS 

IS THE STARTING J 

879 

001630 

005004 

1173230 

005004 

CBOOT1 

CLR R4 

8 80 

001632 

012700 

1173232 

012700 

RESTXt 

MOV #177500, R0 

881 

001634 

177500 

1 

177500 


882 

001636 

000005 

1173236 

000005 

RESTRTt RESET 

883 

001640 

010410 

1173240 

010410 


MOV R4# 9R0 

884 

001642 

012701 

1173242 

012701 


MOV ITABLE# Ri 

885 

001644 

173216 

1171244 

173216 


886 

001646 

012702 

1173246 

012702 


MOV #375#R2 

887 

001650 

000375 

1173250 

000375 


888 

001652 

112103 

1173252 

112103 


MOVB ( R1 ) 4 # R3 

889 

001654 

112110 

1 173254 

112110 

LOOP1I 

MOVB (R1)+#8R0 

890 

001656 

100407 

1173256 

100407 


BMI DONE 

891 

001660 

130310 

1173260 

130310 

LOOP2I 

BITB R3#8R0 

892 

001662 

001776 

1173262 

001776 


BEQ LOOP2 

893 

001664 

10S202 

1173264 

105202 


INCB R2 

894 

001666 

100772 

1173266 

100772 


BMI LOOP1 

895 

001670 

116012 

1173270 

116012 


MOVB 2(P0)#8R2 

896 

001672 

000002 

1173272 

000002 


897 

001674 

000771 

1173274 

000771 


BR LOOP2 

898 

001676 

005710 

1173276 

005710 

DONE i 

TST 9R0 

899 

001700 

100756 

1173300 

100756 


BMI RESTRT 

900 

001702 

005002 

1173302 

005002 


CLP R2 

901 

001704 

120312 

1173304 

120312 


CMPB R3,8R2 

902 

001706 

001377 

1173306 

001377 


BNE ,40 

903 

001710 

000112 

1171310 

000112 

ERROR I 

JMP 9R2 

904 





f 

905 





I THIS 

IS THE STARTING I 

906 

001712 

012704 

1 173312 

012704 

PC 1 1 | 

MOV # 1 77550# R4 

907 

001714 

177550 

1171314 

177550 



I THIS IS THE CASSETTE DEVICE COMMAND TABLE 
TABLE! .BYTE 240 | COMPARE WORD NOT A COMMAND 

.BYTE 37 i XLBS4RWD+G0 

.BYTE 15 I SPACE FORWARD BLOCK+GO 

.BYTE 5 IREAD+GO 

.BYTE 24 f READ+XL3S 

.BYTE 224 |READ+ILBS+END FLAG 

ARE DEPENDENT ON OFFSET IN DIODES FOR LINE ! 

I 

HIS 18 AN ADDITIONAL 

I ADDRESS OF BEGINNING OF BOOTSTRAP 
| PRIORITY LEVEL 7 


1 LOAD DEVICE NUMBER 0 IN R4 
I GET DEVICE ADDTESS 

I ISSUE RESET INSTRUCTION 
1LOAD DEVICE WITH UNIT NUMBER 
I GET FUNNY TABLE OF INSTRUCTIONS 

| AND LOAD UP TRANSFER COUNTER 

I THE LOAD UP COMPARATOR 

iLOAD DEVICE REGISTER WITH COMMAND 

1 HAS COMMAND COMPLETED 
I NO# WAIT 

1 THEN INCREMENT ADDRESS CTR 
I IF NEGATIVE# GET COMMAND 
1 AND STORE DATA AWAY 

I GO GET ANOTHER BYTE 
| ANY DEVICE ERRORS 
I YES # RETRY 

ICLEAR COMPARE ADDRESS AND TRANSFER ADDRESS 
} IT MUST BE 240 
1 NO# THERE WAS AN ERROR 

jNORMAL CASSETTE AND ERROR FOR BULK STORAGE 


I LOAD DEVICE ADDRESS 
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908 

001716 

000005 

1173)16 

000005 

ckdevi 

RE8ET 

(KILL ALL DEVICE ACTION 

909 

001720 

012701 

1173)20 

012701 


MOV #160000, R1 

ITHEN SET UP MEMORY TEST LIMITS 

910 

001722 

160000 

1173322 

160000 



911 

001724 

012702 

1173)24 

012702 


MOV #6 , R2 

(AND SET UP POINTER TO TIMEOUT LOCATION 

912 

001726 

000006 

1173326 

000006 




91) 

001730 

012712 

1173)30 

012712 


MOV #340, 8R2 

| AND SET UP VECTOR TO RETURN TO NEXT 

914 

001732 

000340 

1173332 

000340 




915 

0017)4 

010742 

1173334 

010742 


MOV PC# «CR2) 

f SAVE THE PC 

916 

001736 

012706 

1173)36 

012706 


MOV *24, SP 

>AND LOAD UP STACK POINTER 

917 

001740 

000024 

1173340 

000024 



918 

001742 

010441 

117)342 

010441 


MOV R4#-(R1) 

1 AND LOOK FOR END OF MEMORY 

919 

001744 

040601 

1173344 

040601 


BIC SP, Ri 

ITHEN DROP TO XX77S2 

920 

001746 

010111 

1173346 

010111 


MOV Rl,SRl 

fAND STORE IN ITSELF 

921 

001750 

011102 

1173350 

011102 

LOOPl 

MOV »R1,R2 

ITHEN LOAD ADDRESS FOR DATA INSERTION 

922 

001752 

005214 

1173352 

005214 


INC IR4 

1 AND START DEVICE 

92) 

001754 

105714 

1173354 

105714 

RDRWATl 

TSTB SR4 

ITHEN WAIT FOR CHARACTER AVAILABLE 

924 

001756 

100376 

1173356 

100376 


BPL RDRWAT 

I HANGING THERE IF NECCES8ARY 

925 

001760 

116412 

1 173360 

116412 


MOVB 2 (R4) 0 6R2 

1 STORE AWAY DATA BYTE 

926 

001762 

000002 

1173362 

000002 




927 

001764 

005211 

1173364 

005211 


INC SRI 


928 

001766 

120227 

1173366 

120227 


CMPB R2 i#375 

1 HAS BRANCH OFFSET BEEN STORED 

929 

001770 

000375 

1173370 

000375 




930 

001772 

001366 

1173372 

001366 


BNE LOOP 

| NO 

931 

001774 

105222 

>173)74 

105222 


INCB (R2)* 

1 YES, ALL DONE 

932 

001776 

END.YAi 






933 

001776 

000142 

1173376 

000142 


JMP .(R2) 

ITHEN TRANSFER TO RTN 
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934 


1 BM873B 

BOOTSTRAP MACY1 1 27(655) l*OCT«74 1 4 1 50 

935 


1 






936 


» 



I DATE! 

AUG 23, 1974 


937 

002000 

MAP, 

YB| 





938 


f THE 

FOLLOWING 

IS A REPRODUCTION 


939 


»OF 

THE 

ROM PROGRAM FOR 

BM873YB, 


940 


I XT 

IS 

HERE TOR 

COMPARISON TO THE 


941 


1 ACTUAL 

ROM AND 

FOR REFERENCE 


942 


1 






943 


1 






944 


1 






945 


1 



1 THIS IS THE LOADER 

TO REPLACE THE FOLLOW 

946 


1 



IM792-YA 

PAPER TAPE BOOTSTRAP ROM 

947 


1 



iMRll-DF 

BULK 

STORAGE BOOTSTRAP ROM 

948 


1 



IM792-YH TAil 

CASSETTE BOOTSTRAP ROM 

949 


l 



) RM873A 

COMBINATION 

OF ABOVE ROMS 

950 


1 






951 


1 



1 PREPHERIAL EXTERNAL 

PAGE REGISTERS ASSIGNMENTS! 

952 


1 






953 


1 


177462 

RFWC" 

177462 

IWORD COUNT REG, TOR RF1 

954 


f 


177406 

RKWC* 

177406 

IWORD COUNT REG, TOR RKl 

955 


1 


177144 

TCWCb 

177344 

IWORD COUNT REG, FOR TCI 

956 


t 


172524 

TMWC* 

172524 

IBYTE/RECORD COUNT FOR T 

957 


1 


1767 16 

RPWC* 

176716 

IWORD COUNT REG, FOR RPl 

958 


I 


177450 

RCWC« 

177450 

IWORD COUNT REG, rOR RCl 

959 


1 


177560 

KLCS« 

177560 

iCONTROL REG, FOR KLU 

960 


1 


177500 

TAGS* 

177500 

ICONTROL REG, FOR TAll C 

961 


1 


177550 

PCCSb 

177550 

ICONTROL REG, FOR PCll 

962 


I 


172440 

TUCS« 

172440 

ICONTROL STATUS REG, 1 

963 


1 


172442 

TUWC* 

TUCS+2 

I TUI 6 WORD COUNT REG, 

964 


1 






965 


1 


176300 

RHCSAb 

176300 

ICONTROLLER REG, 1 TOR R 

966 


1 


176102 

RHWCA« 

RHCSA+2 


967 


1 


172040 

RSCSAb 

172040 

ICONTROLLER REG, 1 FOR RH 

968 


1 


172042 

RSWCA» 

RSCSA+2 


969 


1 


176700 

RPCSA« 

176700 

ICONTROLLER REG, 1 FOR R 

970 


1 


176702 

RPWCA* 

RPCSA+2 


971 


1 



f FUNCTION VALUE FOR 

PREPHERALSl 

972 


1 


000005 

RFREAD* 

5 

IREAD FUNCTION 

973 


1 


004003 

RNUMb 

4003 

IREVERSE AND IDENTIFY BL 

974 


1 


060017 

TMRWNDb 

60017 

1 REWIND AND SET 800 BPI 

975 


1 


060011 

tmfwrd* 

60011 

1 FORWARD RECORD COMMAND 

976 


1 


060003 

tmread« 

60003 

fTMll READ 

977 


1 


000011 

DRCLRb 

li 

fDRIVE CLEAR 

978 


I 


000071 

RHREAD* 

71 

|RH11 READ COMMAND 

979 


1 


000021 

RHPRSTb 

21 

IREAD IN PRESET 

980 


I 


000031 

TUSPACs 

31 

> SPACE FORWARD COMMAND F 

981 


1 


040000 

TUTAPEa 

40000 

ITAPE BIT IN RHll/RHDT R 

982 


1 


001300 

TUMODE* 

1 300 

|800 BPI NORMAL MODE FOR 

983 


1 


001000 

FCE« 

1000 

| FRAME COUNT ERROR BIT 

984 


1 



f CONSOLE 

switch reg. 


985 


1 


177570 

CSWb 

177570 


986 


l 






987 


> 
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988 


f 


> ONLY THE LOW 

BYTE OF 

CONSOL SWITCH REGISTER IS 



989 


1 


> SELECT 

the unit number or the 

DEVICE TO BOOT FR 



990 


1 









99 i 


t 

173000 

,8173000 







992 


> 









993 


> 







4 

A, 

994 


I 


> THIS IS 

1 THE STARTING 

ADDRESS 

FOR RHl 1 /R803/04 D 



999 

002000 

000405 

> 173000 

000405 

rkrsai 

BR 

u 

> ENTRY FOR SELECTING UNI 


y 

996 

002002 

010703 

> 173002 

010703 

rhrsbi 

MOV 

PC t R3 

> ENTRY TO SELECT UNITS 


997 

002004 

113737 

>173004 

113737 


MOVB 

IICSW, 

»#RSCSA+10>LOAD UNIT « INS 



998 

002006 

177370 

>173006 

177570 







999 

002010 

172050 

>173010 

172050 







1000 

002012 

000401 

>173012 

000401 


BR 

26 




1001 

002014 

010703 

>173014 

010703 

111 

MOV 

RC,R3 




1002 

002016 

012700 

>173016 

012700 

281 

MOV 

•RSCSA 

'R0ISET CONTROL STATUS REG 



1003 

002020 

172040 

>173020 

172040 







1004 

002022 

000526 

>173022 

000526 


BR 

RHCOMN 




1009 


I 


> 







1006 


1 


1 THIS IS 

1 THE AUTO LOAD 

VECTOR 




1007 

002024 

173000 

>173024 

173000 


.WORD 

RHR8A 




1008 

002026 

000340 

>173026 

000340 


.WORD 

340 




1009 


> 


f 







1010 


1 


> THIS IS 

l THE STARTING 

ADDRESS 

FOR RK1 1 CONTROLLE 



1011 

002030 

000412 

>173030 

000412 

RKllAl 

BR 

26 

> ENTRY TO SELECT UNIT 0 



1012 

002032 

010703 

>173032 

010703 

RKUBl 

MOV 

PC t R3 

I ENTRY TO SELECT ALL UNI 



1013 


> 





> SAVE 

ERROR RETRY ADORES 



1014 

002034 

113703 

>173034 

113703 


MOVB 

SlCSW, 

R5)SET POINTER TO PARAMETE 



1015 

002036 

177570 

>173036 

177570 







1016 

002040 

032705 

>173040 

052703 


BIS 

# 1 0 » R5 

> SET POSITION BIT 



1017 

002042 

000010 

>173042 

000010 







1018 

002044 

006 1 05 

>173044 

006105 

161 

ROL 

R5 

> SHIFT UNIT ♦ TO BIT 13» 



1019 

002046 

103376 

>173046 

103376 


BCC 

11 

>KEEP GOING 



1020 

002050 

010537 

>173030 

010537 


MOV 

R5f 96RKWC+4>MOVE IN TO RKDA REGI 



1021 

002052 

177412 

>173032 

177412 







1022 

002054 

000401 

>173034 

000401 


BR 

36 

> SKIP NEXT INSTRUCTION 



1023 

002056 

010703 

>173056 

010703 

26 > 

MOV 

PC,R3 

f SAVE ERROR RETRY ADDRES 



1024 

002060 

010702 

>173060 

010702 

31! 

MOV 

PC»R2 


X' — 

"y 

1025 

002062 

000546 

>173062 

000546 


BR 

OTHERA 


"f 


1026 

002064 

177406 

>173064 

177406 


.WORD 

RKWC 




1027 

002066 

000005 

>173066 

000005 


.WORD 

REREAD 


‘ . \ * 

.Jp 

1028 


I 


> 







1029 


> 


> THIS IS 

THE STARTING 

ADDRESS 

FOR TCI 1 (DECTAPE) 



1030 

002070 

010703 

>173070 

010703 

TC 1 1 » 

MOV 

PC,R3 

> SAVE ERROR RETRY ADDRES 



1031 

002072 

010702 

>173072 

010702 


MOV 

PC.R2 




1032 

002074 

000570 

>173074 

000370 


BR 

TAPES 




103 3 

002076 

177344 

>173076 

177344 


.WORD 

TCWC 




1034 

002100 

000005 

>173100 

000005 


.WORD 

REREAD 




1035 

002102 

004003 

>173102 

004003 


.WORD 

RNUM 




1036 

002104 

100000 

>173104 

100000 


.WORD 

100000 

>DONE MASK 



1037 

002106 

024000 

>173106 

024000 


.WORD 

24000 

> ERROR MASK 



1038 











1039 


1 









1040 


1 


> 







1041 


1 


> TM1 1 STARTING 

ADDRESS 
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1042 

002110 

010703 

>173110 

010703 

TMill MOV 

PC t P3 | SAVE ERROR RETRY ADDRES 


1043 

002112 

012737 

>173112 

012737 

MOV 

ITMRWNDr MTMWC»2 > REWIND TAPE 


1044 

002114 

06001? 

>173114 

060017 




1045 

002116 

172522 

>173116 

172522 




1046 

002120 

010702 

>173120 

010702 

MOV 

PC f R2 


1047 

002122 

000555 

>173122 

000555 

BR 

TAPES 


1048 

002124 

172524 

>173124 

172324 

.WORD 

TMWC 


1049 

002126 

060003 

>173126 

060003 

.WORD 

TMREAD >TMil READ COMMAND 


1050 

002130 

060011 

>173130 

0600U 

.WORD 

TMFWRD >TMU FORWARD RECORD COM 


1051 

002132 

000200 

>173132 

000200 

.WORD 

200 >DONE MASK 

y 

1052 

002134 

100000 

>173134 

100000 

.WORD 

100000 > ERROR MASK 


1053 


1 


> 



( 

1054 


> 


> THIS IS 

THE STARTING 

ADDRESS FOR RF1 t CONTROLLE 

V^y 

1055 

002136 

010703 

>173136 

010703 

RFllI MOV 

PC i R3 > SAVE ERROR RETRY ADDRES 


1056 

002140 

010702 

>173140 

010702 

MOV 

PC t R2 > SET POINTER TO PARAMETE 


1057 

002142 

000516 

>173142 

000516 

BR 

OTHERA > GO TO COMMON SERVICE RO 


1058 


> 




> ASSUME UNIT 0 


1059 

002144 

177462 

>173144 

177462 

.WORD 

RFWC (DEVICE WORD COUNT REGIS 


1060 

002146 

000003 

>171146 

000005 

.WORD 

REREAD > READ COMMAND 


1061 


> 


> 




1062 


> 


> THIS IS 

THE STARTING 

ADDRESS FOR RH/TU16/TM02 


1063 

002150 

010703 

>173150 

010703 

TUl 6 1 MOV 

PC $ R3 > SAVE ERROR RETRY ADDRES 


1064 

002152 

012700 

>173152 

012700 

MOV 

#TUC5 » R0 > GET CONTROL STATUS WORD 


1065 

002154 

172440 

>173154 

172440 




1066 

002156 

012710 

>173156 

012710 

TU16REI MOV 

#RHPRST,(R0)> REWIND TAPE CLEAR E 


1067 

002160 

000021 

>173160 

000021 




1068 

002162 

012760 

>173162 

012760 

MOV 

ITUMODE > 32 (R0 ) > SET 800 BPI NORMA 


1069 

002164 

001300 

>173164 

001300 




1070 

002166 

000032 

>173166 

000032 




1071 

002170 

012760 

>173170 

012760 

MOV 

I"1 r 6 (R0) >LOAD FRAME COUNT 


1072 

002172 

177777 

>173172 

177777 




1073 

002174 

000006 

>173174 

000006 




1074 

002176 

012710 

>173176 

012710 

MOV 

ITUSPACr (R0) ) SPACE FORWARD 


1075 

002200 

000031 

>173200 

000031 




10T6 

002202 

105760 

>17320? 

105760 

111 TSTB 

12CR0) 


1077 

002204 

000012 

>173204 

000012 




1078 

002206 

100375 

>173206 

100375 

BPL 

18 >KEEP LOOPING 


1079 

002210 

000433 

>173210 

000433 

BR 

RHCOMN 


1080 


> 


> 




1081 


> 


1 THIS IS 

THE STARTING 

ADDRESS FOR RC11 CONTROLLE 


1082 

002212 

010703 

>173212 

010703 

RClli MOV 

PC.R3 


1083 

002214 

010702 

1173214 

010702 

MOV 

PC.R2 ) ASSUME UNIT 0 


1084 

002216 

000470 

>173216 

000470 

BR 

OTHERA 

i '■ 

1083 

002220 

177450 

>173220 

177450 

.WORD 

RCWC 

m -j 

1086 

002222 

000005 

>173222 

000005 

.WORD 

REREAD 


1087 


> 


> 




1088 


> 


> THI S IS 

THE AUTO LOAD 

• VECTOR 


1089 

002224 

173000 

>173224 

173000 

.WORD 

RHRSA 


1090 

002226 

000140 

>173226 

000340 

.WORD 

340 


109.1 


1 


t 




1092 


> 


> THIS IS 

THE STARTING 

ADDRESS FOR RH11 DEVICE CO 


1093 


» 






1094 


> 


>NOTE> 

IF TM02/TU16 SHOULD BE SELECTED. THE VAL 


1093 


1 


> IN CONSOL SWITCH REGISTER IS THE POSXTIO 
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1096 


I 


pON THE 

RH11 INSTEAD 

OF 

THE UNIT # ON TUI 

1097 


1 


P THE SLAVE UNIT 

IP (1 

ON 

TUI 6) SHOULD STIL 

1098 

002230 

000405 

p 1 7 3230 

000405 

RH 1 1 At 

BR 


11 1 ENTRY TO SELECT UNIT 0 

1099 

002232 

010703 

P 1 7 3232 

010703 

RHUBI 

MOV 


PC#R| (ENTRY TO SELECT ALL UNI 

1100 

002234 

113737 

1173234 

1137 37 


MOVB 


f«C8W#6«RHCSAM0|LOAD UNIT # INS 

1101 

002236 

177570 

p 173236 

177570 





1102 

002240 

176310 

Pi 73240 

176310 





1103 

002242 

000401 

P 173242 

000401 


BR 


26 

1104 

002244 

010703 

P 173244 

010703 

161 

MOV 


PC#RJ 

1103 

002246 

012700 

P 173246 

012700 

an 

MOV 


*RKCSA,R0 

1106 

002250 

175300 

1 173250 

176300 





1107 

002232 

032760 

P 173252 

032760 

RFC OMNI 

BIT 


•TUTAPE#26(R0) f TAPE UNIT? 

1108 

002254 

040000 

P 173284 

040000 





1109 

002256 

000026 

1173256 

000026 





1110 

002260 

001336 

1173260 

001336 


BNE 


ftUIRE p YES, GO TO TAPE LOGIC 

1111 

002262 

012710 

1173262 

012710 


MOV 


SRHFRBT# (R0) J RESET DRIVE 

1112 

002264 

000021 

P 173264 

000021 





1113 

002266 

012760 

P 173266 

012760 


MOV 


#14000, 32 (R0) I SET 16 BIT FORMAT 

1114 

002270 

014000 

1 173270 

014000 





1113 

002272 

000032 

P 173272 

000032 





1116 

002274 

012710 

P 173274 

012710 


MOV 


#DRCLR» (R0) PCLEAR DRIVE ERROR 

1117 

002276 

000011 

1173276 

000011 





1118 


f 






P (GENERATED IF RS01/04 

1119 

002300 

005720 

P 173300 

005720 

RHCOMNl 

T8T 


CR0J+ » MOVE TO WORD COUNT ADDR 

1120 

002302 

010037 

P 1 7 3302 

010037 


MOV 


R0,M2 PFAKE CALLING SEQUENCE 

1121 

002304 

000002 

P 1 73304 

000002 





1122 

002306 

012737 

P 173306 

012737 


MOV 


♦RHREAD# 8*4 

1123 

002310 

000071 

1173310 

000071 





1124 

002312 

000004 

P 173312 

000004 





1125 

002314 

005002 

P 173314 

005002 


CLR 


R2 IFOR FLAG AND POINTER TO 

1126 

002316 

000430 

1173316 

000430 


BR 


OTHERA 

1127 


> 


.DSABL 

LSB 




1128 


P 


P 





1129 


P 


P THIS IS THE STARTING 

ADDRESS FOR RH11/RP04 DISK 

1130 

002320 

000405 

>173320 

000405 

RHRPAl 

BR 


16 f ENTRY FOR SELECT UNIT 0 

1131 

002322 

010703 

>173322 

010703 

RHRPBl 

MOV 


PC.R3 (ENTRY TO SELECT ALL UNI 

1132 

002324 

113737 

P 173324 

113737 


MOVB 


0«CSW'MRPC0A4>10pLOAD UNIT 6 INS 

1133 

002326 

177370 

P 173326 

177570 





1134 

002330 

176710 

P 173330 

176710 





1133 

002332 

000401 

1173332 

000401 


BR 


26 

1136 

002334 

010703 

P 173334 

010703 

IIP 

MOV 


PC# R J 

1137 

002336 

012700 

p 173336 

012700 

26 1 

MOV 


»RPCSA,R0 

1138 

002340 

176700 

P 173340 

176700 





1139 

1140 

002342 

000743 

P 

P 1 73342 

000743 

P 


BR 


RPCOMN 

1141 


P 


p ENTRY 

TO BRANCH TO THE 

PC SELECTED BY CONSOL 8H 

1142 

002344 

013707 

p 173344 

013707 

CSRGOl 

MOV 


»#C8W#FC 

1143 

1144 

1145 

1146 

002346 

177570 

f 

I 

P 

P 173346 

177570 

P 

P 





1147 


P 


P THIS IS THE STARTING 

ADDRESS FOR RPil C0NTROLLE 

1148 

002350 

000405 

P 173350 

000405 

RPllAl 

BR 


16 (ENTRY TO SELECT UNIT 0 

1149 

002352 

010703 

P 173352 

010703 

RFllBl 

MOV 


PC#R3 f ENTRY TO SELECT ALL UNI 
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1150 

002354 

113705 

P 173354 

113705 


MOVB 

S«CSW#R8 

1151 

002356 

177570 

Pi 7 3 3 5 6 

177570 




1152 

002360 

000305 

>173360 

000305 


SWAB 

RS (GET UNIT 1 INTO HIGH BY 

1153 

002362 

000402 

P 173362 

000402 


BR 

36 

1154 

002364 

010703 

P 1 73364 

010703 

111 

MOV 

PC# RJ 

1155 

002366 

005005 

P173366 

005005 


CLR 

R5 

1156 

002370 

010702 

1 173370 

810702 

361 

MOV 

PC#R2 

1157 

002372 

000403 

>173372 

000403 


BR 

OTHER 

use 

002374 

176716 

>173374 

176716 


• WORD 

RPWC 

1159 

002376 

000005 

P 173376 

000005 


.WORD 

REREAD 

1160 


P 


P 




1161 

002400 

005005 

>173400 

005005 

OTHERA 1 

CLR 

R5 PSET TO UNIT 0 

1162 

002402 

010200 

P 1 73402 

010200 

OTHER! 

MOV 

R2#R0 IRS POINT AT WORD COUNT 

1163 

002404 

005720 

f 173404 

005720 


T8T 

(R0)+ (POINT TO PARAMETER LIST 

1 164 

002406 

012001 

P 1 73406 

012001 


MOV 

(R0)t#Rl (MOVE WORD COUNT ADDRESS 

1165 

002410 

012711 

>173410 

012711 


MOV 

#<■286 ,#2 » (Rl) (LOAD WORD COUNT 

1166 

002412 

177000 

>173412 

177000 




1167 

002414 

051005 

1173414 

051005 


BIS 

(RS) # RS (COMBINE UNIT I WITH COM 

1168 

002416 

010541 

1173416 

010541 


MOV 

R5#«(R1) (LOAD READ COMMAND 

1169 

002420 

032711 

>173420 

032711 


BIT 

1100200# (Rl) (CHECK FOR ERROR AND 

1170 

002422 

100200 

1173422 

100200 




1171 

002424 

001775 

>173424 

001775 


BEQ 

••4 (WAIT UNTIL COMPLETE 

1172 

002426 

100012 

>173426 

100012 


BPL 

18 (NO ERROR 

1173 

002410 

005702 

1173430 

00B702 


T8T 

R2 (WAS IT CALLED BY MASS B 

1174 

002432 

001024 

>173432 

001024 


BNE 

AGAIN (NO# ERROR 

1175 

002434 

032761 

>173434 

032761 


BIT 

#TUTAPE,26(R1 ) ( IS TU167 

1176 

002436 

040000 

>173436 

040000 




1177 

002440 

000026 

1173440 

000026 




1178 

002442 

001420 

>173442 

001420 


BEQ 

AGAIN (NO, ERROR 

1179 

002444 

022761 

>173444 

022761 


CMP 

#FCE,14(Ri) (ARE WE READ A SHORT 

1180 

002446 

001000 

>173446 

001000 




1181 

002450 

000014 

>173450 

000014 




1182 

002452 

001014 

>173452 

001014 


BNE 

AGAIN (SOME OTHER ERROR 

1183 

1184 

002454 

005007 

P 173454 

005007 

Ill 

CLR 

PC (O.K, 

1185 


1 


P THIS IS 

THE TAPE DEVICE SERVICE ROUTINE 

1186 

002456 

010200 

>173456 

010200 

TAPES* 

MOV 

R2#R0 (GET THE ADDRESS OF THE 

1187 

002460 

005720 

>173460 

005720 


T8T 

(R0)+ (STEP TO LAST COMMAND 

1188 

002462 

012001 

>173462 

012001 


MOV 

(R0)<f ,Rl (GET THE WORD COUNT ADDR 

1189 

002464 

0053H 

1173464 

005311 


DEC 

(Rl) (SET UP TO ADVANCE 1 REC 

1190 

002466 

005720 

>173466 

005720 


TST 

(R0)* (MOVE R0 TO FIRST COMMAN 

1191 

002470 

012041 

>173470 

012041 


MOV 

(R0)+»-(Rl) (LOAD COMMAND REG, 

1192 

002472 

031011 

>173472 

031011 


BIT 

(R0)#(Rl)>DONET 

1193 

002474 

001776 

>173474 

001776 


BEQ 

,•2 (NO, KEEP LOOPING 

1194 

002476 

005720 

P 173476 

005720 


TST 

( R0 ) ♦ (YES, CHECK FOR ERROR 

1195 

002500 

031041 

P 1 7 3500 

031041 


BIT 

(R0)#-(R1)>ANY ERROR? 

1196 

002502 

001736 

P 173502 

001736 


BEQ 

OTHERA (NO ERROR- TRY TO READ 

H97 

002504 

000005 

P 173504 

000005 

AGAIN! 

RESET 


1199 

002506 

000113 

>173506 

000113 


JMP 

(R3 ) (ERROR RETURN 

1200 


> 


1 




1201 


P 


> THIS IS 

THE STARTING 

ADDRESS FOR PClt PAPER TAP 

1202 

002510 

012704 

1173510 

012704 

KLii J 

MOV 

IKLCS# R4 p OBTAIN CONTROL REG, 

1203 

002512 

177560 

P 173512 

177560 
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1204 

002514 

000443 

1173514 

000443 


BR 

CKDEV 

1 AND TRANSFER TO READER 

1205 


1 







1206 


1 


1 





1207 


I 







1208 


1 


iCASSETTE TAPE 

DEVICE 

COMMAND TABLE 

1209 

002516 

.BYTE 

240 1173516 

240 

TABLEl 

.BYTE 

240 iCOMPARE WORD NOT A COMM 

1210 

002517 

.BYTE 

037 1173517 

037 


.BYTE 

37 1 ILBS+RWD+GO 

1211 

002520 

.BYTE 

015 1173520 

015 


.BYTE 

15 1 SPACE FORWARD BLOCK+GO 

1212 

002521 

.BYTE 

005 1173521 

005 


.BYTE 

5 >READ 

1213 

002522 

.BYTE 

024 1173522 

024 


.BYTE 

24 1READ 4>XLBS 

1214 

002523 

.BYTE 

224 1173523 

224 


.BYTE 

224 iREA04>XLBS4>END FLAG 

1215 


1 


1 





1216 


1 


1 THIS IS THE STARTING 

ADDRESS FOR THE CASSETTE D 

1217 

002524 

000404 

1173524 

000404 

CBOOTAi 

BR 

11 

1 SELECT UNIT 0 

1218 

002526 

113704 

1173526 

113704 

CBQOTBi 

MOVB 

8 #C8WfR4 1 SELECT UNITS 

1219 

002530 

177570 

1173530 

177870 





1220 

002532 

000304 

1173532 

000304 


SWAB 

R4 


1221 

002534 

000401 

1173534 

000401 


BR 

RE3ETX 


1222 

002536 

005004 

1173536 

005004 

1 8 > 

CLR 

R4 


1223 

002540 

012700 

1173840 

012700 

RESETXl 

MOV 

#TACS,R0>GET CONTROL REG. 

1224 

002542 

177500 

1173542 

177500 





1225 

002544 

000005 

1173544 

000005 

RESTRTI 

RESET 



1226 

002546 

010410 

>173546 

010410 


MOV 

R4«CR0) 

1 SELECT UNIT 

1227 

002550 

0l270t 

1173560 

012701 


MOV 

•TABLE, 

R1 

1228 

002552 

173516 

1173552 

173516 





1229 

002554 

012702 

1173554 

012702 


MOV 

#375. R2 

1 LOAD TRANSFER COUNTER 

1230 

002556 

000175 

1173556 

000375 





1231 

002560 

112103 

>173560 

112103 


MOVB 

(R1)+#R3>L0AD COMPARATOR 

1232 

002562 

112110 

1173562 

112110 

LOOP1I 

MOVB 

(R! ) + . CR0) 1 LOAD COMMAND 

1233 

002564 

100407 

>173564 

100407 


BMX 

DONE 


1234 

002566 

130310 

1173566 

130310 

LOOP2I 

BITB 

R3.CR0) 

jCOMMAND COMPLETE! 

1235 

002570 

001776 

1173570 

001776 


BEO 

LOOP2 

) NO , WAIT 

1236 

002572 

105202 

1173572 

105202 


INCB 

R2 

> INCREMENT ADDRESS CTR. 

1237 

002574 

100772 

1173574 

100772 


BMI 

LOOPl 

i IF C->, GET COMMAND 

1238 

002576 

116012 

>173576 

116012 


MOVB 

2 (R0) » (R23 1 STORE DATA 

1239 

002600 

000002 

1173600 

000002 





1240 

002602 

000771 

>173602 

000771 


BR 

L00P2 

f GET ANOTHER BYTE 

1241 

002604 

005710 

>173604 

005710 

DONE! 

TST 

(R0) 

1 ANY ERROR? 

1242 

002606 

100756 

1173606 

100756 


BMI 

RE8TRT 

fYESf RETRY 

1243 

002610 

005002 

1 173610 

005002 


CLR 

R2 

fCLEAR COMPARE ADDRESS 

1244 

002612 

120312 

1173612 

120312 


CMPB 

R3.CR2) 

yXT MUST BE 240 

1245 

002614 

001377 

>173614 

001377 


BNE 

. 


1246 

002616 

000112 

>173616 

000112 

ERROR! 

JMP 

CR2) 


1247 


1 


1 





1248 


1 


1 THIS IS THE STARTING 

ADDRESS FOR THE PC 11 CONTR 

1249 

002620 

012704 

1173620 

012704 

PC 11 1 

MOV 

•PCCS.R4 

1250 

002622 

177550 

1173622 

177550 





1251 

002624 

000005 

>173624 

000005 

CKDEVl 

RESET 



1252 

002626 

012701 

1173626 

012701 


MOV 

•160000 

» R1 > SET UP MEMORY TEST LI 

1253 

002630 

160000 

>173630 

160000 





1254 

002632 

012702 

1173632 

012702 


MOV 

#6#R2 

1 SET UP POINTER TO TXMEO 

1255 

002634 

000006 

1173634 

000006 





1256 

002636 

012712 

>173636 

012712 


MOV 

*340. (R2) iSET UP VECTOR TO RETUR 

1257 

002640 

000140 

1173640 

000340 
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1258 

002642 

010742 

1173642 

010742 


MOV 

PC,*(R2) iSAVE PC 



1259 

002644 

012706 

1173644 

012706 


MOV 

#24, 5P 

iLOAD UP STACK 

POINTER 

1260 

002646 

000024 

1173646 

000024 







1261 

002650 

010441 

1173650 

010441 


MOV 

R4 » •( R1 ) > LOOK FOR END 

OF MEMORY 

1262 

002652 

040601 

>173652 

040601 


BIC 

SP,R1 

|THEN DROP 

TO 

XX752 

1263 

002654 

010111 

1173654 

010111 


MOV 

Rl # (R1 ) 

1 AND STORE 

IN 

ITSELF 

1264 

002656 

011102 

>173686 

011102 

LOOPl 

MOV 

CR1),R2 




1265 

002660 

005214 

1173660 

005214 


INC 

CP4) 

1 START DEVICE 


1266 

002662 

105714 

1173662 

105714 

RDRWATl tstb 

CR4) 

> WAIT 



1267 

002664 

100376 

1173664 

100376 


BPL 

RDRWAT 




1268 

002666 

116412 

1173666 

116412 


MOVB 

2 (R4) f (R2) 1 SAVE THE 

DATA 

1269 

002670 

000002 

1173670 

000002 







1270 

002672 

005211 

1173672 

005311 


INC 

CR1) 




1271 

002674 

120227 

1173674 

120227 


CMPB 

R2, #375 




1272 

002676 

000375 

1173676 

000375 







1273 

002700 

001366 

1173700 

001366 


BNE 

LOOP 

1 NO 



1274 

002702 

105222 

1173702 

105222 


INCB 

CR2) + 

1 YES 



1275 

002704 

0001 42 

1173704 

000142 


JMP 

•(R2) 




1276 

002706 

000000 

1173706 

000000 

> THIS 

AREA IS 

UNUSED 




1277 

002710 

000000 

1173710 

000000 

1 THIS 

area is 

UNUSED 




1278 

002712 

000000 

1173712 

000000 

1 THIS 

AREA IS 

UNUSED 




1279 

002714 

000000 

>173714 

000000 

1 THIS 

AREA IS 

UNUSED 




1280 

002716 

000000 

1173716 

000000 

1 THIS 

AREA IS 

UNUSED 




t 28 1 

002720 

000000 

1173720 

000000 

1 THIS 

AREA IS 

UNUSED 




1282 

002722 

000000 

1173722 

000000 

1 THIS 

AREA IS 

UNUSED 




1283 

002724 

000000 

>173724 

000000 

1 THIS 

AREA IS 

UNUSED 




1284 

002726 

000000 

1173726 

000000 

1 THIS 

AREA IS 

UNUSED 




1285 

002730 

000000 

1173730 

000000 

1 THIS 

AREA IS 

UNUSED 




1286 

002732 

000000 

>173732 

000000 

1 THIS 

AREA IS 

UNUSED 




1287 

002734 

000000 

1173734 

000000 

> THIS 

AREA IS 

UNUSED 




1288 

002736 

000000 

>173736 

000000 

1 THIS 

AREA IS 

UNUSED 




1289 

002740 

000000 

1173740 

000000 

I THIS 

AREA IS 

UNUSED 




1290 

002742 

000000 

1173742 

000000 

1 THIS 

AREA IS 

UNUSED 




1291 

002744 

000000 

1173744 

000000 

1 THIS 

AREA IS 

UNUSED 




1292 

002746 

000000 

1173746 

000000 

1 THIS 

AREA IS 

UNUSED 




1293 

002750 

000000 

1173750 

000000 

1 THIS 

AREA IS 

UNUSED 




1294 

002752 

000000 

1173752 

000000 

1 THIS 

AREA IS 

UNUSED 




1295 

002754 

000000 

1 173754 

000000 

| THIS 

AREA IS 

UNUSED 




1296 

002756 

000000 

1173756 

000000 

1 THIS 

AREA IS 

UNUSED 




1297 

002760 

000000 

> 1 73765* 

000000 

1 THIS 

AREA IS 

UNUSED 




1298 

002762 

000000 

1 173762 

000000 

> THIS 

AREA IS 

UNUSED 




1299 

002764 

000000 

>173764 

000000 

> THIS 

area is 

UNUSED 




1300 

002766 

000000 

1173766 

000000 

1 THIS 

AREA IS 

UNUSED 




1301 

002770 

000000 

>173770 

000000 

1 THIS 

area is 

UNUSED 




1302 

002772 

000000 

1173772 

000000 

> THIS 

AREA IS 

UNUSED 




1303 

002774 

000000 

1173774 

000000 

1 THIS 

area is 

UNUSED 




1304 

002776 

end.ybi 









1305 

002776 

000000 

1173776 

000000 

I THIS 

AREA IS 

UNUSED 
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1306 

003000 

1307 


1308 


1309 


1310 


1311 


1312 


1313 


1314 


1315 


1316 


1317 


1318 


1319 


1320 


1321 


1322 


1323 


1324 


1325 


1326 


132 7 


1328 


1329 


1330 


1331 


1332 

003000 

1333 

003002 

1334 

003004 

1333 

003006 

1336 


1337 


1338 

003010 

1339 

003012 

1340 

003014 

1341 

003016 

1342 


1343 


1344 


1343 

003020 

1346 

003022 

1347 


1348 


1349 


1350 

003024 

1351 

003026 

1352 


1353 


1354 

003030 

1355 

003032 

1356 

003034 

1357 

003036 

1358 

003040 

1359 

003042 


MAP, YCl 

I THE FOLLOWING 1000 LOCATIONS ARE 
I A REPRODUCTION OF THE ROM PROGRAM 
> FOR THE BM873YC, THE FIRST 400 LOCATIONS 
I ARE AN EXACT COPY OF THE BM873YA, THE 
I REMAINING 400 LOCATIONS ARE 
(THE DDCMP BOOTSTRAP ROM PROGRAM, 

I IT IS HERE FOR COMPARISON TO 
| ACTUAL ROM AND FOR REFERENCE, 

1173000 ,«173000 | STARTING ADDRESS FOR BOOTSTRAP 

I THIS LOADER IS DESIGNED FOR THE RESTART MODULE MI71, 
1 IT iUNCTIONALLY REPLACES THE FOLLOWING ROMSl 
»M792-YA - PAPER TAPE BOOTSTRAP FOR FCil.KLll 
|MRlt-DB BULK STORAGE BOOTSTRAP ROM 

jM 792*YH TAll CASSETTE BOOTSTRAP ROM 


» 


000000 

R0« 

%0 IREGISTER DEFINITIONS 

f 


000001 

R1b 

%1 


1 


000002 

R2b 

%2 


» 


000003 

R3* 

%3 


l 


000004 

R4« 

«4 


» 


000005 

RSb 

%5 


1 


000006 

SPs 

%6 


> 


000007 

PCp 

%7 


J 


177570 

SR* 

177570 

(PROCESSOR SWITCH REGISTER 




ISTARTING LOCATION FOR 

RF1 1 DISK 

010702 

> 1 7 3000 

010702 

PFllf 

MOV PC # R2 

(SET POINTER TO PARAMETER LISTS 

000464 

>173002 

000464 


BR OTHER 

1 TRANSFER TO SERVICE ROUTINE 

177462 

>173004 

177462 


.WORD 177462 

» DEVICE WORD COUNT ADDRESS 

000005 

>173006 

000005 


.WORD 5 

(DEVICE READ INSTRUCTION 




> THIS 

IS THE STARTING 

LOCATION FOR THE RK11 CONTROLLER 

010702 

> 173010 

010702 

RKUl 

MOV PC # R2 

1 SET POINTER TO PARAMETER LIST 

000460 

>173012 

000460 


BR OTHER 

iTRANSFER TO SERVICE ROUTINE 

177406 

> 17301* 

177406 


.WORD 177406 

IDEVICE WORD COUNT REGISTER 

000005 

>173016 

000005 


.WORD 5 

IDEVICE READ INSTRUCTION 




f THIS 

IS A SPARE STARTING LOCATION, IT TRANSFERS TO ADDRESS 




CONTAINED IN THE SWITCH REGISTER, 

013707 

>173020 

013707 

TRANSRi MOV M8R.PC 

1 GO TO INDICATED LOCATION 

177570 

>173022 

177870 





(NOTE 773024 AND 773224 ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 


I 

I THIS IS THE POWER UP 


173000 

1 173024 

173000 

POWER* 

.WORD RF11 

000340 

1173026 

000340 

1 

1 THIS 

, WORD 340 
IS THE STARTING 

010702 

1173030 

010702 

TC 111 

MOV PC , R2 

000426 

1 173032 

000426 


BR TAPES 

177344 

1173034 

177344 


.WORD 177344 

004003 

1173036 

004003 


.WORD 4003 

100000 

1173040 

100000 


.WORD 100000 

024000 

1 173042 

024000 


.WORD 24000 


VECTOR REQUIRED FOR DEVICE AND 

jADDRESS OF FIRST LOCATION IN POM 
I PROCESSOR STATUS LEVEL 7 

ADDRESS FOR TC11 (DECTAPE) CONTROLLER, 
I SET UP POINTER TO PARAMETER LIST 
| AND TRANSFER TO FIRST ROUTINE 
(DEVICE WORD COUNT ADDRESS 
f FIND PREVIOUS BLOCK COMMAND 
fUSED AS DONE INDICATOR 
(USED AS ERROR INDICATOR/TEST FLAG 
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1360 

003044 

00044S 

1 173044 

000445 

BR OTHERX 

ITHEN TRANSFER TO NEXT ROUTINE 

1361 

003046 

000005 

> 173046 

000005 

.WORD 5 

(DEVICE READ COMMAND 

1362 





> 


1363 





(THIS IS THE START LOCATION FOR TMtl MAGTAPE CONTROLLER 

1364 

003050 

010702 

1 173050 

010702 

TMUl MOV PC# R2 

(SET POINTER TO PARAMETER LIST 

1365 

003052 

000416 

1 173052 

000416 

BR TAPES 

» AND TRANSFER TO FIRST ROUTINE 

1366 

003054 

172524 

1173054 

172524 

.WORD 172524 

(DEVICE BYTE/RECORD COUNT REGISTER 

1367 

003056 

060017 

1173056 

060017 

.WORD 60017 

(DEVICE REWIND COMMAND 

1368 

003060 

000200 

I 17306P 

000200 

.WORD 200 

(DEVICE DONE FLAG 

1369 

003062 

100000 

1 173062 

100000 

.WORD 100000 

IDEVICE ERROR FLAG BIT 

1370 

003064 

000413 

1171064 

000413 

BP TAPESX 

ITHEN TRANSFER TO NEXT SERVICE RTN 

1371 

003066 

060011 

1173066 

060011 

.WORD 60011 

I, DEVICE FORWARD SPACE COMMAND 

137 2 

003070 

000200 

1 173070 

000200 

.WORD 200 

(SAME AS ABOVE 

1373 

001072 

100000 

1 173072 

100000 

.WORD 100000 

(SAME AS ABOVE 

1374 

003074 

000431 

1 173074 

000431 

BR OTHERX 

(THEN TRANSFER TO READ/TRANSFER ROUTINE 

1375 

003076 

060003 

1 173076 

060003 

.WORD 60003 

(DEVICE READ COMMAND 

l J / o 

1377 





(THIS IS THE START LOCATION FOR THE RP11 CONTROLLER 

1378 

003100 

010702 

1173100 

010702 

RPlil MOV PC # R2 

| SET POINTER TO PARAMETER LIST 

1379 

003102 

000424 

1173102 

000424 

BR OTHER 

(TRANSFER TO TRANSFER ROUTINE 

1390 

003104 

176716 

1173104 

176716 

.WORD 176716 

(DEVICE WORD COUNT REGISTER 

1381 
t i a 9 

003106 

00000S 

1173106 

000005 

.WORD 5 

(DEVICE READ COMMAND 

A J B £ 

1383 





(THIS IS THE TAPE DEVICE SERVICE ROUTINE, 

1384 

003110 

010200 

1173110 

010200 

TAPES! MOV R2#R0 

(GET ADDRESS OF PARAMETER LIST 

1385 

003112 

005720 

1173112 

005720 

TST ( R0 ) ♦ 

(SKIP TWO WORDS FIRST TIME 

1386 

003114 

000005 

1173114 

000005 

TAPESXl RESET 

(RESET ALL DEVICES 

1387 

003116 

005720 

>173116 

005720 

TST (R0)+ 

(SKIP OVER BRANCH INSTRUCTION 

1388 

001120 

016201 

(173120 

016201 

MOV 2CR2)#Ri 

(THEN GET DEVICE WORD/BYTE COUNT ADORES 

1 389 

003122 

000002 

>173122 

000002 



1390 

003124 

005311 

1173124 

005311 

DEC 8R1 

(AND SET TO «1 

1391 

003126 

012041 

>173126 

012041 

MOV (R0) + # «(Rl ) 

(AND THEN ISSUE COMMAND TO DEVICE 

1392 

003130 

031011 

>173130 

031011 

TApWATl BIT SR0#8R1 

(WAIT FOR DEVICE COMPLETION 

1193 

003132 

001776 

>173132 

001776 

BEQ TAPWAT 

(BY HANGING IN LOOP 

1394 

003134 

005720 

>173134 

008720 

TST ( R0 ) ♦ 

(AND THEN SKIP DONE FLAG 

1395 

003136 

032041 

>171136 

032041 

BIT (R0)4,-(R1) 

(THEN TEST FOR ERROR 

1396 

003140 

001063 

>173140 

001063 

BNE ERROR 

(THERE IS ONE 

1397 

1398 

003142 

000110 

>173142 

000110 

RETURNi JMP 8R0 

(AND TRANSFER TO FOLLOWING INSTRUCTION 

1399 





(THIS IS THE STARTING ADDRESS FOR RC11 DISK CONTROLLERS 

1400 

003144 

010702 

(173144 

010702 

RC 111 MOV PC # R2 

(SET UP POINTER TO PARAMETER LIST 

1401 

003146 

000402 

>17 3146 

000402 

BR OTHER 

(TRANSFER TO SERVICE RTN 

1402 

003150 

177450 

>173150 

177450 

• WOHD 177450 

(DEVICE WORD COUNT REGISTER 

1401 

1404 

00.315? 

000005 

>173152 

000005 

.WORD 5 

(DEVICE READ INSTRUCTION 

1405 





ITHIS ROUTINE PERFORMS 

THE ACTUAL TRANSFER TO MEMORY OF DATA 

1406 

003154 

010200 

> 173154 

010200 

OTHERl MOV R2»R0 

(SET POINTER TO LIST IN R0 

1407 

003156 

005720 

>173156 

005720 

TST (R0)+ 

(SKIP TWO WORDS FIRST TIME, 

1408 

003160 

005720 

1173160 

005720 

OTHERX! TST (P0)+ 

(SKIP PAST BR INSTRUCTION 

1409 

003162 

000005 

>171162 

000005 

RESET 

(REST THE WORLD 

1410 

003164 

016201 

>173164 

016201 

MOV 2(R2)#Rl 

(OBTAIN DEVICE WORD COUNT ADDRESS 

1411 

003166 

000002 

>173166 

000002 



1412 

003170 

012711 

>173170 

012711 

MOV #-1000, RPl 

(THEN OBTAIN LARGE WORD COUNT 

1413 

0031.7? 

177000 

>173172 

1 77000 
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B M 8 7 3 D , 

,P11 

MAINDEC 

-il-DZBMD-D 

BM073 UNIVERSAL RESTART LOADER DIAGNOSTIC, 


1414 

003174 

011041 

>173174 

011041 

MOV 0R0, *CRl ) 

> AND PUT COMMAND TO DEVICE 


1415 

003176 

105711 

>173176 

105711 

OTHWATi TSTB gRl 

i WAIT FOR DONE FLAG 


1416 

003200 

100376 

>173200 

100376 

BPL OTHWAT 

fBY HANGING IN LOOP 


141 7 

003202 

005711 

>173202 

003711 

TST SR 1 

? THEN TEST FOR ERROR 


141 8 

003204 

100441 

>173204 

100441 

BMI ERROR 

1 GOT PROBLEMS 


1419 

003206 

005007 

>173206 

005007 

CLR PC 

fAND TRANSFER TO EERO 


1420 





> 



1421 





> THIS IS THE STARTING 

ADDRESS FOR THE PCI! PAPER TAPE CONTROLLER 

1422 

003210 

012704 

> 173210 

012704 

KL11I MOV #177560, R4 

> OBTAIN DEVICE ADDRESS 


1423 

003212 

177560 

>173212 

177360 




1424 

003214 

000440 

> 173214 

000440 

BR CKDEV 

> AND TRANSFER TO READER SERVICE ROUTINE 

1425 





> 



1426 








1427 





f THIS IS THE CASSETTE 

DEVICE COMMAND TABLE 


1428 

003216 

017640 

> 173216 

240 

TABLE! .BYTE 240 

ICOMPARE WORD NOT A COMMAND 


1429 



>173217 

037 

.BYTE 37 

jXLBS+RWD+GO 


1430 

003220 

002415 

>173220 

015 

.BYTE 13 

> 8 PACE FORWARD BLOCK+GO 


1431 



>173221 

005 

.BYTE 5 

>READ+GO 


1432 

003222 

112024 

>173222 

024 

.BYTE 24 

fREAD+XLBS 


1433 



>173223 

224 

.BYTE 224 

lREA04.XLSS4.END FLAG 


1434 


fNOTE 773024 AND 773224 

ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 


1435 





> 



1436 





> THIS IS AN ADDITIONAL 

POWER VECTOR ADDRESS REQUIRED BY DEVICE 

1437 

003224 

173000 

>173224 

173000 

POWER2I .WORD RFli 

> ADDRESS OF BEGINNING OF BOOTSTRAP 


1438 

003226 

000340 

>173226 

000340 

.WORD 340 

1 PRIORITY LEVEL 7 


1439 





> 



1440 





> THIS IS THE STARTING 

ADDRESS FOR THE CASSETTE DEVICE #0 


1441 

003230 

005004 

>173230 

006004 

CBOOTI CLR R4 

> LOAD DEVICE NUMBER 0 IN R4 


1442 

003232 

012700 

>173212 

012700 

RESTXl MOV #177800, R0 

> GET DEVICE ADDTESS 


1443 

003234 

177500 

> 

177500 




1444 

003236 

000005 

>173236 

000005 

RE 8 TRTI RESET 

> ISSUE RESET INSTRUCTION 


1445 

003240 

010410 

>173240 

010410 

MOV R4,9R0 

>LOAD DEVICE WITH UNIT NUMBER 


1446 

003242 

012701 

>173242 

012701 

MOV #TABLE,R1 

f GET FUNNY TABLE OF INSTRUCTIONS 


1447 

003244 

173216 

>173244 

173216 




1448 

003246 

012702 

>173246 

012702 

MOV #375# R2 

I AND LOAD UP TRANSFER COUNTER 


1449 

003250 

000375 

>173250 

000373 




1450 

003252 

112103 

>173252 

112103 

MOVB (R1)4,R3 

>THE LOAD UP COMPARATOR 


1451 

003254 

112110 

> 173284 

112110 

LOOP1I MOVB (R1)+#SR0 

fLOAD DEVICE REGISTER WITH COMMAND 


1452 

003256 

100407 

>173256 

100407 

BMI DONE 



145 3 

003260 

130310 

>173260 

130310 

LOOP2I BITB R3,®R0 

|HAS COMMAND COMPLETED 


1454 

003262 

001776 

>173262 

001776 

BEQ L00P2 

> NO, WAIT 


1455 

003264 

105202 

> 173264 

105202 

INCB R2 

>THEN INCREMENT ADDRESS CTR 


1456 

003266 

100772 

> 173266 

100772 

BMI LOOP! 

> IF NEGATIVE# GET COMMAND 


1457 

003270 

116012 

>173270 

116012 

MOVB 2CR0)»@R2 

> AND STORE DATA AWAY 


1458 

003272 

000002 

>173272 

000002 




1459 

003274 

000771 

> 173274 

000771 

BR LOOPS 

> GO GET ANOTHER BYTE 


1460 

003276 

005710 

>173276 

003710 

DONE! TST §R0 

f ANY DEVICE ERRORS 


1461 

003300 

100756 

>173300 

100756 

BMI RESTRT 

> YES# RETRY 


1462 

003302 

005002 

> 173302 

005002 

CLR R2 

>CLEAR COMPARE ADDRESS AND TRANSFER 

ADDRESS 

1463 

003304 

120312 

>173304 

120312 

CMPB R3,©R2 

> IT MUST BE 240 


1 464 

003306 

001377 

>173306 

001377 

BNE , 4-0 

> NO# THERE WAS AN ERROR 


1465 

003310 

000112 

>173310 

000112 

ERROR! JMP |R 2 

(NORMAL CASSETTE AND ERROR FOR BULK 

STORAGE 

1 466 





> 



1467 





> THIS IS THE STARTING 

LOCATION FOR THE PC 11 CONTROLLER 
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8M873D, 

,P11 

MAINDEC 

-U-DZBMC 

>»D 

BM873 

UNIVERSAL RESTART LOADER DIAGNOSTIC, 

1468 

003312 

012704 

>173312 

012704 

PCI 11 

MOV 

#177550, R4 

iLOAD DEVICE ADDRESS 

1469 

003314 

177550 

> 173314 

177550 





1470 

003116 

000003 

> 173316 

000005 

CKDEV! 

RESET 

(KILL ALL DEVICE ACTION 

1471 

003120 

012701 

>171320 

012701 


MOV 

#160000, R1 

> THEN SET UP MEMORY TEST LIMITS 

1472 

003322 

160000 

>173322 

160000 





1473 

003324 

012702 

>171324 

012702 


MOV 

#6,R2 

> AND SET UP POINTER TO TIMEOUT LOCATION 

1474 

003126 

000006 

> 173326 

000006 





1475 

003330 

012712 

>173330 

012712 


MOV 

#340, #R2 

> AND SET UP VECTOR TO RETURN TO NEXT 

1476 

003132 

000140 

1173332 

000340 





1477 

003134 

010742 

>171334 

010742 


MOV 

PC,-CR2) 

> SAVE THE PC 

1478 

003116 

012706 

> 173336 

012706 


MOV 

#24, SP 

> AND LOAD UP STACK POINTER 

1479 

003140 

000024 

> 173340 

000024 





1480 

003342 

010441 

>173342 

010441 


MOV 

R4#-(R1) 

fAND LOOK FOR END OF MEMORY 

1481 

003144 

040601 

> 173344 

040601 


BIC 

SP,R 1 

> THEN DROP TO XX7752 

1482 

003146 

010111 

>173346 

010111 


MOV 

Rl , ®Rl 

1 AND STORE IN ITSELF 

1483 

003350 

011102 

> 173350 

011102 

LOOP! 

MOV 

SR1,R2 

(THEN LOAD ADDRESS FOR DATA INSERTION 

1484 

003352 

005214 

> 173352 

005214 


INC 

8R4 

jAND START DEVICE 

1485 

003154 

105714 

> 173354 

105714 

RDRWAT! 

TSTB 

IR4 

ITHEN WAIT FOR CHARACTER AVAILABLE 

1486 

003356 

100376 

> 173356 

100378 


BPL 

RDRWAT 

> HANGING THERE IF NECCESSARY 

1487 

00.1360 

116412 

> 173360 

116412 


MOVB 

' 2 ( R4 ) , 8R2 

» STORE AWAY DATA BYTE 

1488 

003362 

000002 

>173362 

000002 





1489 

003364 

005211 

>173364 

005211 


INC 

8 R 1 


1490 

003366 

120227 

> 173366 

120227 


CMPB 

■ R2, #375 

> HAS BRANCH OFFSET BEEN STORED 

1491 

003370 

000375 

> 173370 

000375 





1492 

003372 

001366 

> 173372 

001366 


BNE 

LOOP 

> NO 

1493 

001174 

105223 

> 173374 

105222 


INCB 

(R2H 

> YES, ALL DONE 

1494 

003376 

000142 

>173376 

000142 


JMP 

*(R 2 ) 

> THEN TRANSFER TO RTN 


1 495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 


» THE FOLLOWING 400 LOCATIONS ARE 
I A REPRODUCTION OF THE DDCMP BOOT- 
ISTRAP ROM, IT IS HERE FOR COM- 
fPARISON TO THE ACTUAL ROM AND 
IFOR REFERENCE, 


COPYRIGHT 1975, DIGITAL EQUIPMENT CORP,# MAYNARD, MASS, 01754 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED CWITH INCLUSION OF DEC'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, 

EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING 
BY DEC, 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY DEC, 

VERSION 01 

STUART WECKER 01/22/75 
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1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 


DIGITAL EQUIPMENT CORPORATION 
COMPUTER NETWORK FACILITIES 
DOWN-LINE LOADING PROGRAM 

THIS PROGRAM LOADS COMPUTER MEMORY FROM DATA SENT OVER 
A DATA COMMUNICATIONS LINK, IT SENDS AND RECEIVES 
MESSAGES IN DDCMP BOOT FORMAT, THE PRIMARY BOOT ONLY 
LOADS A SINGLE BLOCK# THE SECONDARY BOOT# WHICH 
THEN REQUESTS AND LOADS THE DESIRED PROGRAM, 

CURRENT VERSION DDCMPl 3,0 • MAY 7# 1974 

THE BOOTSTRAP MESSAGES ARE OF THE FORM I 

3YN#8YN#DLE#CNT#F#Sf FILL# FILL# ADDR#CRC1 # DATA# CRC 2 

ALL ITEMS ARE 8-BITS LONG UNLESS OTHERWISE SPECIFIED 

SYN-THE SYNC CHARACTER-SYNC-226 # ASYNC-J77 

DLE-THE BOOT HEADER CHARACTER-OCTAL 220 

CNT-THE 14-BIT COUNT FIELD-LENGTH OF DATA FIELD 

F*THE FINAL BIT-LINK CONTROL 

S-TKE SELECT BIT-LINK CONTROL 

FILL-A FILL CHARACTER-OCTAL 000 

ADDR-THE STATION ADDR-FOR PT. TO PT*tl 

CRC1-THE 16-BIT CRC-16 COMPUTED ON OLE THROUGH ADDR 

DATA-THE BOOT DATA AS FOLLOWS! 

CODE# INFO 

ONLY THE FOLLOWING CODES ARE USED BY THE 
PRIMARY BOOT 

CODE«10 REQUEST SECONDARY PROGRAM 
XNFOPDEVXCE TYPE# STATION ADDRESS 
DEVICE TYPE-DP*0 # DU*2 # DL«4 # DQ»6 
STATION ADDRESS* 1 

CODEP0 PROGRAM LOAD WITH TRANSFER ADDRESS 
XNFOnBLKNO# BLK LDADDR# IMAGE DATA# TRANS ADDR 
BLKNO*0 

BLOCK LDADDR«6 
TRANS ADDR*6 

HEADER COUNT > OR ■ TO 10, 

ADDRESSES ARE 4 BYTES- 32 BITS-LOW BIT FIRST 
CRC2-THE 16-BIT CRC-16 COMPUTED ON THE DATA FIELD ONLY 


OPTION SWITCHES! 

DEVICE-DP1 1#DU11#DL11 
CRC-KGl l , SCRC 


I REGISTER DEFINITIONS 

» 

P0«%0 (BLOCK LOAD ADDR 
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BM873D, 

Pll 

maindec 

-11-DZBMD-D 

BM873 

UNIVERSAL RESTART LOADER DIAGNOSTIC, 

1576 



I 

000001 

R1M1 


(DEVICE CSR ADDRESS 

1577 



> 

000002 

R2»%a 


(CRC CALC TEMP 

1578 



( 

000003 

R3a%3 


(SOFtWARE CRC 

1579 



1 

000004 

R4a%4 


(BLOCK CHAR COUNT 

1580 



( 

000005 

F5*%5 


(CRC CALC TEMP 

1581 



1 

000006 

8P«%6 


(STACK ADDR 

1582 



» 

000007 

PC*%7 


(LOCATION COUNTER 

1583 





( 



1584 





( 

LITERALS 

1585 





( 



1586 



1 

000001 

SSTADR*! 

(STATION ADDR 

1507 



f 

177570 

8SWR«177570 

(SWITCH REGISTER ADDR 

1588 



J 

000226 

8SYN«226 

(SYNC CHARACTER 

1589 



1 

000220 

8DLE»220 

(DDCMP DLE CHARACTER 

1590 



( 

000400 

8STRIP*400 


1591 





( 



1592 





( 

THE STACK IS USED A5 FOLLOWSl 

1593 





( 

STACK- 

2 IFOR JSR TO GET ROUTINE 

1594 





( 

STACK- 

4 (TEMP FOR CRC CALCULATION 

1595 





( 



1596 





( 

START 

OF BOOT PROGRAM 

1597 





( 



1598 





( 

START1 

•DEVICE UNIT 0-NORMAL CONFIGURATION 

1599 





( 

START2-USE SWITCH REG AS DEVICE DISPLACEMENT 

1600 





( 


I.E, #0-0, #1-10, #2-20 

1601 





( 



1602 



1 

173400 

,*173400 


1603 

003400 

012700 

1173400 

012700 

START1 I 

MOV 

CPC)+#R0 INON ZERO VALUE TO R0 

1604 

083402 

005000 

( 173402 

005000 

START2I 

CLR 

R0 (CLEAR R0 

1605 

003404 

000005 

( 173404 

000005 


RESET 

(RESET SYS# MEM MGT, ETC 

1606 

003406 

012706 

(173406 

012706 


MOV 

#17776#8P tSTACK AT 4K-2 

1607 

001410 

017776 

( 173410 

017776 




1608 





( 



1609 





( 

FIND THE DU-11 IN THE FLOATING ADDRESS SPACE 

1610 





( 



1611 

003412 

010702 

( 173412 

010702 


MOV 

PC# R2 (CURRENT PC 

1612 

003414 

062702 

(173414 

062702 


ADD 

IDEVTAB-, #R2 (DEVICE TABLE ADDR 

1613 

003416 

000360 

(173416 

000360 




1614 

003420 

012703 

( 173420 

012703 


MOV 

#6# R3 (TRAP PS ADDR 

1615 

003422 

000006 

1 173422 

000006 




1616 

001424 

003013 

( 173424 

005013 


CLP 

(R3) (CLEAR NEW PS 

1617 

003426 

010243 

(173426 

010243 


MOV 

R2#-(R3) (TABLE ADDR TO LOC 4 

1618 

003430 

160313 

( 173430 

160.313 


SUB 

P3# fRI) | SUB TO TRAP RTN 

1619 

003432 

005303 

1171412 

005303 


DEC 

R3 (LEAVE CNT 3 FOR LOOP 

1620 

003434 

01270J 

1 173434 

012701 


MOV 

#160010#R1 (START SEARCH ADDR 

1621 

003436 

160010 

(171436 

160010 




1622 

003440 

005711 

( 173440 

005711 

DEVLOP! 

TST 

CR1) (IS DEVICE THERE 

1623 

003442 

1 11204 

( 173442 

111204 


MOVB 

(R25.R4 (DEVICE INCREMENT TO R3 

1624 

003444 

060401 

( 173444 

060401 


ADD 

R4 # R 1 (UPDATE TO NEXT DEVICE 

1625 

003446 

005201 

1 173446 

005201 


INC 

R1 (INCREMENT MODULO 

1626 

003450 

040401 

( 173450 

040401 


BIC 

R4 » F 1 (CLEAR EXCESS 

1627 

003452 

005703 

( 173452 

005703 


TST 

R3 (TEST FOP DONE 

1628 

003454 

001 371 

1 173454 

001371 


BNE 

DEVLOP (NOT YET 

1629 

003456 

005700 

( 173456 

005700 


TST 

R0 (TEST SWITCH REG USE 
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1630 

003460 

001002 

(173460 

001002 


BNE 

8NDREQ 

(NO SNITCH REG 

1631 

003462 

061701 

1173462 

063701 


ADD 

iXSSWRi R1 

(ADD SWR VALUE 

1632 

003464 

177570 

1173464 

177570 





1633 





( 




1634 





» 

SET 

UP DEVICE FOR OUTPUT 

1635 





> 




1636 



( 173466 


sndreqi 




1637 

003466 

012711 

1173466 

012711 


MOV 

#6'<Rl) 

(DATA TERM RDY AND REQ TO SEND 

1638 

003470 

000006 

(173470 

000006 





1639 

003472 

012761 

(173472 

012761 


MOV 

•36000+SSYN' 2 CRl ) (SET SYNC REGISTER 

1640 

003474 

036226 

> 173474 

036226 





1641 

003476 

000002 

( 173476 

000002 





1642 

003500 

032711 

(173500 

032711. 

L3I 

BIT 

•20000* CRl) 

(TEST CLEAR TO SEND 

1643 

003502 

020000 

1173502 

020000 





1644 

003504 

001775 

1173504 

001775 


BEQ 

L3 

(NOT YET 

1645 

003506 

022121 

1173506 

022121 


CMP 

CRl )♦# (Ri)> 

(MOVE PTR TO XMIT TSR 

1646 

003510 

052711 

1 173510 

052711 


BIS 

•20' CRl) 

(TURN SEND ON 

1647 

003512 

000020 

1 173512 

000020 





1648 





( 




1649 





( 

SEND 

SECONDARY POM REQUEST MESSAGE 

1650 





( 




1651 

003514 

010700 

(173514 

010700 


MOV 

PC'R0 

(CURRENT PC 

1652 

003516 

062700 

( 173516 

062700 


ADD 

•RQMSG» ( 'R0 

(REQUEST MSG ADDR 

1653 

003520 

000230 

(173520 

000230 





1654 

003522 

012704 

(173522 

012704 


MOV 

#RQMSGE-RQMSG'R4 (COUNT 

1655 

003524 

000026 

(173524 

000026 





1656 

003526 

112061 

(173526 

112061 

L4( 

MOVB 

(R0)t'2CRl) 

(CHAR TO XMIT REGISTER 

1657 

003530 

000002 

(173530 

000002 





1658 

003532 

10571 1 

(173532 

105711 

L5( 

T8TB 

CRl) 

(DONE YET ? 

1659 

003534 

100376 

(173534 

100376 


BPL 

L5 

(NO 

1660 

003536 

005304 

(173536 

005304 


DEC 

R4 

(DECREMENT COUNT 

1661 

003540 

001372 

(173540 

001372 


BNE 

L4 

(ONCE MORE 

1662 

003542 

042711 

>173542 

042711 


BIC 

•20' CRl ) 

(DROP SEND 

1663 

003544 

000020 

(173544 

000020 





1664 

003546 

024141 

(173546 

024141 


CMP 

•CRI)»*CR1) 

(RESET PTR TO RCV CSR 

1665 





( 




1666 





( 

GET 

SECONDARY PROGRAM 


1667 





» 




1668 



(173550 


GETPGM( 




1669 

003550 

042711 

>173550 

042711 


BIC 

•20' CRl 2 

(CLEAR SEARCH SYNC 

1670 

003552 

000020 

(173552 

000020 





1671 

003554 

0127U 

(173554 

012711 


MOV 

1422, CRl) 

(SET EOR CLEAR AND STRIP SYNC 

167 2 

003556 

000422 

(173556 

000422 





167 3 

003560 

005003 

1 173560 

005003 


CLR 

R3 

(CLEAR CRC VALUE 

1674 


i 



( 




1675 





> 

GET 

MESSAGE HEADER AND 

CHECK IT 

1676 





> 




1677 

003562 

012700 

> 173562 

012700 


MOV 

#1 »R0 

(LOAD HDR AT LOC . 1 

1678 

001564 

000001 

> 173564 

000001 





167 9 

001566 

012704 

1 173566 

012704 


MOV 

•8*'R4 

(BLOCK COUNT 

1680 

003570 

000010 

>171570 

000010 





1691 

003572 

004767 

>171572 

004767 


JSR 

PC » GET 

(GET HEADER 

1682 

001574 

000060 

(171574 

000060 





1681 

003576 

005703 

(173576 

005703 


TST 

R3 

(CHECK HEADER CRC 
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1684 

003600 

001363 

>173600 

001363 


BNE 

GETPGM 

(NO GOOD 

1685 

003602 

123727 

> 173602 

123727 


CMPB 

(M6 # • ISTADR 

(CHECK FOR MY ADDR 

1686 

003604 

000006 

( 173604 

000006 





1687 

001 606 

000001 

( 173606 

000001 





1689 

003610 

001357 

( 173610 

001357 


BNE 

GETPGM 

(NOT MINE 

1699 

003612 

123727 

> 173612 

123727 


CMPB 

6# 1,# IDLE 

(IS THIS A DLE MSG 

1690 

001614 

000001 

>173614 

000001 





1691 

003616 

000220 

> 173616 

000220 





1692 

003620 

001322 

( 173620 

001322 


BNE 

SNDREQ 

(NO' ASK FOR ONE 

1693 





1 




1694 





> 

GET DATA BLOCK 


1695 





j 




1696 

003622 

013704 

( 173622 

013704 


MOV 

•I2,R4 

(DATA FIELD LENGTH 

1697 

003624 

000002 

> 173624 

000002 





1698 

003626 

042704 

( 173626 

042704 


BIC 

11 40000, R4 

(MASK OFF S' F BITS 

1699 

003630 

140000 

>173630 

140000 





1700 

001632 

122424 

(173632 

122424 


CMPB 

<R4)+'<*4)+ 

(ADD 2 FOR CRC 

1701 

001634 

005000 

>173634 

005000 


CLR 

R0 

(LOAD INTO LOCATION 0 

1702 

003636 

004767 

(173636 

004767 


JSR 

PC 'GETI 

(GET DATA BLOCK 

1703 

00.1640 

000014 

> 173640 

000014 





1704 

003642 

005703 

(173642 

00570J 


TST 

R3 

(CHECK DATA FIELD CRC 

1705 

003644 

001310 

(173644 

001310 


BNE 

SNDREQ 

(NO GOOD 

1706 

003646 

105713 

(173646 

105713 


TSTB 

CR3) 

(CHECK CODE IN LOC 0 

1707 

003650 

001306 

(173650 

001306 


BNE 

SNDREQ 

(NOT PROGRAM LOAD 

1708 

003652 

000137 

>173652 

000137 


JMP 

• «6 

(TRANSFER TO SECONDARY PGM 

1709 

1710 

003654 

000006 

>171654 

000006 





1711 

1712 





> 

> 

GET A 

BLOCK AND COMPUTE 

CRC 

1713 



>173656 


GETI 




1714 



(173656 


GET 11 



(IS DEVICE DONE Y$T 

1715 

003656 

105711 

( 173656 

105711 


TSTB 

(Ri) 

1716 

001660 

100376 

( 173660 

100376 


BPL 

GET 

(NOT YET 

1717 

003662 

042711 

> 173662 

042711 


BIC 

••STRIP' CRl ) 

(NO STRIP SYNC 

1719 

003664 

000400 

( 173664 

000400 





1719 

003666 

116110 

1173666 

116110 


MOVB 

2(R1)'(R0) 

(STORE IT 

1720 

003670 

000002 

( 173670 

000002 





1721 





t 




1722 





> 

CRC CALCULATION ROUTINE 


1723 





> 




1724 



> 

120001 

POLYM120001 


(CRCM6 POLYNOMIAL 

17 25 





> 




1726 

003672 

01270? 

>173672 

012705 


MOV 

•8 , ,R5 

(BYTE LENGTH 

1727 

003674 

000010 

>173674 

000010 





1728 

003676 

112002 

(173676 

112002 


MOVB 

(R0)>,R2 

(CHARACTER TO ADD TO CRC 

1729 

003700 

000241 

( 1 73700 

000241 

CPCLOPI 

CLC 


(CLEAR CARRY 

1730 

003702 

006003 

(173702 

006003 


ROR 

R3 

(SHIFT OLD PARTIAL 

1731 

003704 

1 03 00 3 

> 173704 

103003 


BCC 

til-0 

> IF CLEAR CHECK CHAP 

1732 

003706 

006002 

> 173706 

006002 


ROR 

R2 

jshift character 

1733 

003710 

103003 

> 17371 0 

103003 


BCC 

Lli 

( XOR POLY 

1734 

003712 

000410 

> 17371 2 

000410 


BR 

M2 

(NEXT BIT 

1735 

003714 

006002 

> 173714 

006002 

L 10 1 

ROR 

R2 

(SHIFT CHARACTER 

17 36 

003716 

103006 

>173716 

103006 


BCC 

L 12 

(NEXT BIT 

1737 

003720 

012746 

>173720 

012746 

111 > 

MOV 

iPOLYr-(SP) 

(POLY TO STACK 
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1828 


|BM873« 

• YD 

• KL10 

(PDP-11) 

256 WORD BOOTSTRAP ROM 

VERSION 2(17) MACYil 27(657) 18-DEC-74 11*59 

1829 


f BM873« 

■YD.P11 

BUTTON 

#1 • BOOTSTRAP 

USING THE PDP-11 SWITCH REGISTER 

1830 









1831 









1832 


P 

173000 

ROMORG 

» 

173000 

ps«t ROM origin to 771000 

1833 


P 

173000 


,«ROMORG 

1 BM873< 

•YD occupies 773000-7TI777 

1834 








1835 

004000 

033727 

1173000 

033727 

BUTON1I 

BIT 

8SSWR# IBIT0 

pis rightmost bit onT 

1836 

004002 

177570 

1 173002 

177570 




1837 

004004 

000001 

1173004 

000001 





1836 

004006 

001010 

p 173006 

001010 


BNE 

LOWBIT 

plf the bit if on# branch 

1839 

004010 

013707 

1173010 

013707 


MOV 

BiSWRf PC 

pJump to the address in the switch register 

1840 

1841 

004012 

177570 

f 173012 

177570 




p without having touehad any of R0 • R6 

1642 









1843 

004014 

111704 

1173014 

111704 

BUTONll 

MOVB 

( PC ) # R4 

pR4 ei indicates that button S3 was pressed 

1844 

004016 

005001 

1173016 

005001 


CLR 

Rl 

pact unit number to taro 

1845 

004020 

005005 

p 173020 

005005 


CLR 

R5 

pClear "logical switch register" 

1846 

004022 

000424 

p 173022 

000424 


BR 

TCBOOT 

pDo e default boot strap from DECtape 

1847 









1848 

004024 

173000 

P 173024 

173000 


.WORD 

ROMORG# PR7 


1649 

004026 

000340 

p 173026 

000340 





1850 









1851 

004030 

013701 

p 173030 

013701 

LOWBITl 

MOV 

IfSWRiRl 

p Rl is a copy of the switch register 

1852 

004032 

177570 

P 173032 

177570 





1653 

004034 

106301 

p 173034 

106301 


ASLB 

Rt 

pLeft-ellgn speed field in right byte 

1854 

004036 

122701 

P 173036 

122701 


CMPB 

1 16020# Rl 

pis ths speed 16 or 171 

185$ 

004040 

000340 

P 173040 

000340 





1856 

004042 

101404 

P 173042 

101404 


BL08 

UNITNO 

plf speed is 16 or 17# branch 

1857 

004044 

122701 

p 173044 

122701 


CMPB 

«3*20#R1 

pis the speed 0# l# or 27 

1856 

004046 

000060 

P 173046 

000060 





1859 

004050 

101001 

P 173050 

101001 


BHX 

UNITNO 

plf the speed is 0# 1# or 2# branch 

1860 

004052 

005001 

P 173052 

005001 


CLR 

Rl 

pspeed was 3-15p set unit number • 0 

1861 

1862 

1863 

004054 

000301 

P 173054 

000301 

UNXTNOl 

SWAB 

Rl 

pMove unit number to bits 0-2 






P It If 

possible to manually set the desired bootstrap unit number 

1864 






p into 

the rightmost three bits of Rl# set the PDP-11 front panel 

1865 






P switch register* and 

then jump into the ROM eode at this point, 

1866 









1867 

004056 

042701 

P 173056 

042701 


BIC 

#*C7#R1 

p isolate unit number in Rl 

1868 

004060 

177770 

P 173060 

177770 





1869 

004062 

013705 

P 173062 

013705 


MOV 

MSWR#R5 

pRS is now the "logical switch register" 

1870 

004064 

177570 

f 173064 

177570 





1871 

004066 

005004 

P 173066 

005004 


CLR 

R4 

p R4 e 0 indicates that button SI was pressed 

1872 

004070 

105705 

P 173070 

105705 


TSTB 

R5 

pShould we boot from DECtape or RH11/RP04? 

1873 

004072 

100507 

P 173072 

100507 


BMI 

RPBOOT 

plf bit 7 was one# branch off to the RH11/RP04 

1874 








pOtherwise# fall through to tht DECtape 
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1875 


IBM873- 

YD 

- KL1 0 

(PDP-11) 

256 WORD BOOTSTRAP ROM 

VERSION 2(17) MACYil 27(657) 1B-DEC-74 11*59 

187 6 


f BM873- 

YD.P11 

DECTAPE 

BOOTSTRAP AND DUMP ROUTINES 


187 7 
1878 









1879 


f 

177344 

TCWC 

a 

177344 

pTCli 

DECtape word count register 

1880 


P 

000001 

TCGO 

a 

1 

> TCI 1 

"GO" bit 

1881 


1 

000002 

TCRNUM 

■ 

l#2 

r tci i 

"read block number" function 

1882 


P 

000004 

TCREAD 

■ 

2*2 

pTCli 

"read data" function 

1883 


P 

000014 

TC WRIT 

a 

6*2 

P TCI 1 

"write data" function 

1884 

1885 

1886 


P 

004000 

TCREV 

a 

4000 

pMove 

DECtape in reverse direction 






p Bootstrap (from DECtape) Parameters 

1887 


P 

000400 

TCBWDC 

a 

*D2S6 

> Word 

count for the secondary bootstrap 

1888 


1 

000000 

TCBEND 

a 

0 

>Which 

end of the DECtape (0 ® front* l ■ back) 

1889 









1890 






p Dump 

(to DECtape) Parameters 

1891 


I 

070000 

TCDWDC 

a 

•D28672 

p Word 

eount for the eore dump to DECtape 

1892 

1893 

1894 


» 

000001 

TCDEND 

a 

1 

pwnich 

end of the DECtape (0 « front* l w back) 






p General (Bootstrap and Dump) DECtape Parameter 

1895 

1896 

1897 


> 

000024 

TCRTFY 

a 

*D20 

pNumber of retries in ease of error 

004074 

012700 

p 1 7 3074 

012700 

TCBOOT 1 

MOV 

# <TC BEND*TC RE V> 1 TCREAD i TCGO# R0 pSet up data-transf er command 

1898 

004076 

000005 

P 173076 

000005 





1899 

004100 

012702 

P 173 100 

012702 


MOV 

S-TCBWDC # R2 

>8et word count to 256 (512 bytes) 

1900 

004102 

177400 

*17)102 

177400 




1901 

004104 

012703 

1173104 

012703 


MOV 

#«1-TCBEND>*TCREV>1TCRNUMITCG0#R3 psat up position command 

1902 

004106 

004003 

P 173106 

004003 





1903 

004110 

000301 

p 173 1 10 

000301 


SWAB 

Rl 

paring unit number into the left byte 

1904 

004112 

050103 

P 173112 

050103 


BIS 

R1,P3 

pPut unit number Into Positioning command 

1905 

004114 

050100 

p 1731 14 

050100 


BIS 

R1#R0 

pPut unit number into data-transf er command 

1906 

004116 

012701 

P 1731 16 

012701 

TCSTRTI 

MOV 

STCWCiRl 

pRl now points to TCll word eount ragister 

1907 

004120 

177344 

P 173120 

177344 





1908 

004122 

012706 

1173122 

012706 

TCLOOPl 

MOV 

STCRTRY# SP 

p Initialize retry eount in SP 

1909 

004124 

000024 

f 17)124 

000024 





1910 

004126 

005705 

p 173126 

005705 

TCBGINt 

TST 

R5 

p Test "indefinite retry" bit 

19H 

004130 

100404 

P 173130 

100404 


BMI 

TCRSET 

pBraneh if "indefinite retry" is enabled 

1912 

004132 

005306 

1173132 

005306 


DEC 

SP 

pDeerement retry count 

1913 

004134 

100002 

p 173134 

100002 


BPL 

TCRSET 

pBraneh if fdtry count not txhaufttad 

1914 

0041)6 

000000 

P 1 73 1 36 

000000 

TCHALTl 

HALT 


pRetrv count ii exhausted for DECtape operation 

1915 

004140 

000770 

» 173 140 

000770 


BR 

TCLOOP 

>He pressed "CONTINUE"# so try again 

1916 

004142 

000005 

>173142 

000005 

TCP SET! 

RESET 


pstop anything in prograss# for next try 

1917 

004144 

010341 

1 173144 

010341 


MOV 

R3#*(R1) 

> Initiate DECtape poslenlng operation 

1918 

004146 

0057U 

1173146 

005711 

TCWAITl 

TST 

(Rl) 

pTest for an "Error" 

1919 

004150 

100)76 

>173150 

100376 


BPL 

TCWAIT 

pLoop until an "ERROR" is detected 

1920 

004152 

005721 

>173152 

005721 


TST 

(Rl ) ♦ 

pMake Rl point to the word count register 

1921 

004154 

003761 

>173154 

005761 


TST 

-4CR1) 

pis the error "ENDZONE"? 

1922 

004156 

177774 

1173156 

177774 





1923 

004160 

100362 

>173160 

100362 


BPL 

TCBGIN 

plf not, branch back to try again 

1924 

004162 

010211 

>173162 

01021 1 


MOV 

R2#(R1) 

pSet up word count for data-transfer 

1925 

004164 

010041 

1173164 

010041 


MOV 

R0#-(Ri) 

p Initiate the data-transfer operation 

1926 

004166 

105711 

>173166 

105711 

TCDONEl 

tstb 

(Rl) 

pTest for "DONE" 

1927 

004170 

100376 

> 173170 

100376 


BPL 

TCDONE 

lLoop until the "DONE" bit sets 

1928 

004172 

005721 

>173172 

005721 


TST 

(Rl) + 

p Was an "ERROR" detected? 


PAGE 4 
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( 


1929 

004174 

100754 

*171174 

100754 


BMX 

TCBGIN 

1930 

004176 

005741 

*171176 

005741 


TST 

•CR1) 

1931 

004200 

105011 

*171200 

105011 


CLRB 

(Ri) 

1932 

004202 

122700 

*171202 

122700 


CMPB 

• TCREADITCGO* R0 

1933 

004204 

000005 

*173204 

000005 




1934 

004206 

001001 

*173206 

001001 


BNE 

TCSTOP 

1935 

004210 

000117 

*173210 

000137 

GOTO0I 

JMP 

S(PC)4 

1936 

004212 

000000 

*173212 

000000 

TCSTOPl 

HALT 


1937 

004214 

000776 

*173214 

000776 


BR 

TCSTOP 


I it so* braneh back and try again 
>Makt Ri Point to tha command raglitar 
iStop an DECtapa motion 
jwas thla a "normal raad" operation? 

lit not, go atop 

>Jump to PDP-11 location taro 

(Successful completion of a "non-rsad" operation 
iSo that pressing "CONTINUE" won't go anywhere 


( 


< 
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< 


1938 


IBM873- 

>YD 

- KL1 0 

(PDP-11) 

256 WORD BOOTSTRAP ROM 

VERSION 2(17) MACY11 27(657) 18-DEC-74 

1939 


IBM873- 

•YD.Pll 

DECTAPE 

BOOTSTRAP AND 

DUMP ROUTINES 


1940 

1941 

004216 

010037 

>173216 

010037 

TCDUMPl 

MOV 

R0.SSR0TOR7 

isave R0 in PDP-11 memory location 40 

1942 

004220 

000040 

*173220 

000040 





1943 

1944 

1945 

004222 

000402 

*171222 

000402 


BR 

TCCONT 

*Braneh around required interrupt vector 

004224 

173000 

>173224 

173000 


.WORD 

ROMORG.PR7 


1946 

004226 

000340 

*173226 

000340 





1947 

1949 

004230 

010700 

*173230 

010700 

TCCONTl 

MOV 

PC.R0 

tUsa R0 for a subroutine return address 

1949 

004232 

000410 

1173232 

000410 


BR 

REGSAV 

*Go to the "Register Saving" subroutine 

1950 

004234 

012700 

>173234 

012700 


MOV 

*<TCDEND«TCREV>1TCWR1T1TCGO<R0 >8et up (write) transfer < 

1951 

004236 

004015 

*173236 

004015 





1952 

004240 

012702 

*173240 

012702 


MOV 

S-TCDWDC.R2 

*Set word-count to 28 K words 

1953 

004242 

110000 

*173242 

110000 





1954 

004244 

012703 

>173244 

012703 


MOV 

#«1-TCDEND>*TCREV>1TCRNUMITCG0,R3 (Set up position < 

1955 

004246 

000003 

* 173246 

000003 





1956 

004250 

005005 

*173250 

005005 


CLR 

R5 

jCiear "indefinite retry" bit 

1957 

004252 

00072! 

*173252 

000721 


BR 

TCSTRT 

*Branch into DECtape routine 


1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 


* The following subroutine It used to save the PDP-11 general registers 
» in PDP-11 memory locations 40-57, 


* The calling sequence Is as followsi 

> 

* 


MOV R0.SIR0TOR7 

MOV PC.R0 

BR REG8AV 

return here 


1970 

004254 

010137 

*173254 

010137 

REGSAV* MOV 

RI t SIR0TOR7+2 

1971 

004256 

000042 

>173256 

000042 



1972 

004260 

01270! 

*173260 

012701 

MOV 

SR0TOR7+4.R1 

1973 

004262 

000044 

*173262 

000044 



1974 

004264 

010221 

*173264 

010221 

MOV 

R2# (Rl)+ 

1975 

004266 

010321 

>173266 

010321 

MOV 

R3 » ( Ri ) + 

1976 

004270 

010421 

1 173270 

010421 

MOV 

R4,(R1)+ 

1977 

004272 

010521 

>173272 

010521 

MOV 

R5# (RI )+ 

1978 

004274 

010621 

* 173274 

010621 

MOV 

8P # (R1)+ 

1979 

004276 

010021 

*173276 

010021 

MOV 

R0# (RI )♦ 

1980 

004300 

000160 

*173300 

000160 

JMP 

2 ( R0) 

1981 

004302 

000002 

>173102 

000002 




isave Ri in memoty location 42 

|R1 now points to memory location 44 

tsavt R2 In memory location 44 
(Save R3 In memory location 46 
fSava R4 in memory location 50 
fSave R5 in memory location 52 
fSave SP in memory location 54 
l Save PC in memory location 56 
iReturn to the calling routine 



# 


DEflMD MACYli 2 7 £ €» S 7 ) 5-MAR-7S 11147 PAGE 43 

BM873D.P11 MAINDEOU-DZBMD-D BM873 UNIVERSAL RESTART LOADER DIAGNOSTIC, 


1983 


*BM8?3 

-yd 

1984 

19S5 

1986 


JBM873 

-YD.Pil 

1987 


1 

176700 

1988 


* 

000002 

1989 


I 

000006 

1990 


1 

000010 

1991 


1 

000012 

1992 


f 

000032 

1993 

1994 


1 

000034 

1995 


1 

040000 

1996 


1 

020000 

1997 



004000 

1998 


* 

100000 

1999 


1 

040000 

2000 

2001 


* 

010000 

2002 


1 

000021 

2003 


I 

000061 

2004 

2005 


> 

000071 

2006 


1 

000000 

2007 


* 

000400 

2008 


i 

000626 

2009 


i 

000000 

2010 

2011 


i 

000000 

2012 


> 

000000 

2013 


r 

070000 

2014 

2015 


i 

000631 

2016 


i 

000015 

2017 

2018 

2019 

2020 


* 

000010 

2021 

004304 

111704 

*173304 

2022 

004306 

005005 

1173306 

2023 

2024 

004310 

005001 

*173310 

2025 

004312 

012700 

>173312 

2026 

004314 

034400 

*173314 

2027 

004316 

012702 

>173316 

2028 

004320 

177400 

>173120 

2029 

004322 

012703 

>173322 

2030 

004324 

000626 

>173324 

2031 

004326 

050100 

>171326 

2032 

004330 

012701 

>173330 

2033 

004332 

176700 

>173332 


- KL10 (PDP-11) 2 S 6 WORD BOOTSTRAP ROM VERSION 2(17) MACYli 27(687) 18-DEC-74 11*89 PAGE 6 

RHJ1/RP04 BOOTSTRAP AND DUMP ROUTINES 


RPCsi « 176700 >Address ofi RH11/RP04 Control 6 statu* register i 

RPWC a 2 *Oifset to RHU/RP04 Word Count register 

RPDA a 6 jOf«aet to RHH/RP04 Track s saetor Address register 

RPCS2 * 10 > Of £set to RHU/RP04 Control ft statu* register 2 

RRDs » 12 >of £§et to RH11/RP04 Drive Statu* register 

RPOF « 32 'Offset to RH11/RP04 Offset register (containing fmt22) 

RPDC a 34 >Of£set to RHH/RP04 Desired Cylinder register 

RPTRE 8 BIT14 > "Transfer Error" bit in RPCSI 

RPMCPE B BIT13 >"Massbus Control Bu* Parity Error" bit in RPCSI 

RPDVA m BIT11 *«Drive Available* bit in RPCsi 

RPATA « Bins > "Attention Active" bit in RPDs 

RPERR B BIT14 > "Composite Error" bit in RPDS 

RPFMT 9 BIT12 >"FMT22" ( 16 -bit Word*) bit in RPOF 

RPPRST » 21 iRead-in Prasat 

RPWRIT a 61 fWrlte Data 

RPREAD a 71 |Read Data 

RPBFMT a 0 i Bootstrap format (0 ■ 18-bit words* 2 a 16-blt word*) 

RPBWDC » “D2S6 iWord count for the secondary bootstrap tram the RP04 

RPBCYL a **D406 bootstrap cylinder number 

RPBTRK a 0 tBootstrap track number 

RPBSCT ■ 0 f Bootstrap sector number 

RPDFMT a 0 f Dump format (0 a 18-blt words* 2 a 16-bit words) 

RPDWDC a "D28672 >Word count tor the core dump to the RP04 

RPDCYL a *0400 > Dump cylinder number 

* The following two assignment* put the dump at tha vary end of the cylinder 
RPDTRK a *Di0*«RPDWDC-t»/«*D204RPDFMT>#*D256»» *Dump tree* number 

RPDSCT a •Dl9*RPDPMT-<U<RPDWDC*l>/*D2S6»-«*Dl8-RPDTRK»#<*D204RPDrMT>» 


111704 BUT0N2I MOVB (PC)»R4 *R4 9 S indicates that button *2 was pressed 

00800S CLR RS iCltar "logical switch register" 

005001 CLR Ri *sat unit number to zero 

012700 RPBOOTI MOV #<RPREAD*400>I«RPB8CT*10># R0 

034400 

012702 MOV # -RPBWDC# R2 

177400 

012703 MOV #<RPBFMT*40000> I <RPBTRK*2000> i RPBCYL # RJ 

000626 

050100 BIS R1#R0 *Pyt the unit number into R 0 

012701 RPSTRTI MOV *RPCS1#R1 }Sat Rl to the lowect address used by the RHn 

176700 
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2034 IBM873-YD - KL10 (PDP-11) 2S6 WORD BOOTSTRAP ROM VERSION 2(17) MACYli 27(657) 18-DEC-74 11*59 PAGE 7 

2035 *BM873-YD,P11 RHH /RP04 BOOTSTRAP AND DUMP ROUTINES 

2036 


2037 

004334 

000005 

>173334 

000005 

RPLOOPl 

RESET 


> Reset in ease of retry 

20 38 

004336 

010006 

>173336 

010006 


MOV 

R 0 .SP 

> Get the unit number into SP 

2039 

004340 

042706 

>173340 

042706 


SIC 

#*C7#SP 

> isolate the unit number 

2040 

004342 

177770 

>173342 

177770 




2041 

004344 

010661 

>173344 

010661 


MOV 

SP# RPCS2 (Rl ) 

>Tell the RHH the unit number 

2042 

004346 

000010 

>173346 

000010 





2043 

004350 

03271 1 

>173350 

032711 


BIT 

# RPDVA# (Rl) 

>Try to seise this RP04 unit 

2044 

004352 

004000 

>173352 

004000 





2045 

004354 

001767 

>173354 

001767 


BED 

RPLOOP 

>Branch if we haven't seized it 

2046 

004356 

012721 

>173356 

012721 


MOV 

SRPPRST# (Rl)+ 

>Do a "Read-In Preset" function 

2047 

004360 

000021 

>173360 

000021 





2048 

004362 

010306 

>173362 

010306 


MOV 

R3#SP 

> Get the cylinder number into sp 

2049 

004364 

042706 

>173364 

042706 


BIC 

#"C1 777 # SP 

> Isolate the cylinder number 

2050 

004366 

176000 

>173366 

176000 





2051 

004370 

010661 

>173370 

010661 


MOV 

SP#RPDC-2 (Rl ) 

>Teil the RP04 the cylinder number 

2052 

004372 

000032 

>173372 

000032 




2053 

004374 

010306 

>173374 

010306 


MOV 

R3# SP 

l Get the format bit and track number into SP 

205 4 

004376 

100003 

>173376 

100003 


BPL 

RPCONT 

jBraneh if 20 sector (18-bit words) format 

2055 

004400 

012761 

>173400 

012761 


MOV 

# rpfmt # rpof- 2 (Rl ) >E*tablish 22 sector (16-bit words) formet 

2056 

004402 

010000 

>173402 

010000 





2057 

004404 

000030 

>173404 

000030 





2058 

004406 

006206 

>173406 

006206 

RPCONTI 

ASR 

SP 

>Right align the track 

2059 

004410 

006206 

*173410 

006206 


ASR 

SP 

> number in the left byte 

2060 

004412 

105006 

>173412 

105006 


CLRB 

SP 

iClear the right byte 

2061 

004414 

150006 

>173414 

150006 


BISB 

R0# SP 

>Put the sector number into the right byte 

2062 

004416 

106006 

>173416 

106006 


RORB 

SP 

I Right align the 

2063 

004420 

106206 

>173420 

106206 


ASRB 

SP 

* sector number in 

2064 

004422 

106206 

>173422 

106206 


ASRB 

SP 

> the right byte 

2065 

004424 

010661 

>173424 

010661 


MOV 

SP#RPDA-2(R1) 

iTell the RHil the track and sector numbers 

2066 

004426 

000004 

>173426 

000004 





2067 

004430 

010211 

>173430 

010211 


MOV 

R2# (Rl) 

>Tell the RHil the word count 

2068 

004432 

010006 

>173432 

010006 


MOV 

R0#SP 

>Get the function code into SP 

2069 

004434 

105006 

>173434 

105006 


CLRB 

SP 

fClear the right byte 

2070 

004436 

000306 

>173436 

000306 


SWAB 

SP 

> Right align the function code 

2071 

004440 

010641 

>173440 

010641 


MOV 

SP# - ( Rl D 

*Tell the RP04 the function code 

2072 

004442 

105711 

>173442 

105711 

RPDONEl 

TSTB 

(Rl) 

*Test for RHn "ready" 

207 3 

004444 

100376 

>173444 

100376 


BPL 

rpdone 

>Loop# waiting for RHil "ready" 

2074 

004446 

032711 

>173446 

03271 1 


BIT 

SRPTREJ RPMCPE 

# ( Rl ) >Test for RHil error bits 

2075 

004450 

060000 

>173450 

060000 




2076 

004452 

001330 

>173452 

001330 


BNE 

RPLOOP 

>If error# branch back for retry 

2077 

004454 

032761 

>173454 

012761 


BIT 

fRPATAl RPERR, 

RPDS(Rt) >Test for RP04 error bits 

2078 

004456 

140000 

>173456 

140000 




2079 

004460 

000012 

>173460 

000012 





2080 

004462 

001324 

1173462 

001324 


BNE 

RPLOOP 

>If error# branch back for retry 

2081 

004464 

022706 

>173464 

022706 


CMP 

SRPREAD# SP 

> Was the function a "normal read"? 

2082 

004466 

000071 

>173466 

000071 





2083 

004470 

001250 

*173470 

001250 


BNE 

TCSTOP 

>lf not# branch to a HALT instruction 

2084 

004472 

022737 

>173472 

02273? 


CMP 

#000240#8#0 

>Was "000240" read into location zero? 

2085 

004474 

000240 

>173474 

000240 





2086 

004476 

000000 

>173476 

000000 





2087 

004500 

001643 

>173500 

001643 


BEQ 

GOTO 0 

>If so# branch to .location zero 
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2088 

004502 

000000 

(173502 

000000 

HALT 

2089 

2090 

2091 

004504 

000641 

(173504 

000641 

BR 

2092 

004506 

010037 

(173506 

010037 

RPDUMPI MOV 

2093 

004510 

000040 

(173510 

000040 


2094 

004512 

010700 

(173512 

010700 

MOV 

2095 

004514 

000657 

(173514 

000657 

BR 

2096 

004516 

012700 

(173516 

012700 

MOV 

2097 

004520 

030500 

(173520 

030500 


2098 

004522 

012702 

(173522 

012702 

MOV 

2099 

004524 

110000 

>173524 

110000 


2100 

004526 

012703 

(173526 

012703 

MOV 

2101 

004530 

032631 

(173530 

032631 


2102 

2103 

004532 

000676 

(173532 

000676 

BR 


I "000240" was net read into location zero 
(Branch to location zero 


R0 1 MR0TOR7 (SAVE R0 IN PDP-11 MEMORY LOCATION "R0TOR7" 

PC # R0 ( USE R0 rOR A SUBROUTINE RETURN ADDRESS 

REGSAV > GO TO THE "REGISTER SAVING" SUBROUTINE 

#<RPWRIT*400> 1 <RPD$CT*10> . R0 

#-RPDWDC#R2 

#<RPDFMT*40000> l <RPDTRK*2000> I RPDCYL. R1 
RPSTRT 
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2104 

(BM873-YD 

• KL10 (PDP-1 

2105 

2106 

(BM873-YD.P1 1 

DTE20 DEVICE 

2107 

2108 

( 174400 

DTEBASB174400 

2109 

( 000040 

DTESXZB000040 

2110 

( 000004 

DTEMAX84 

2111 



2112 



2113 



2114 



2115 



2116 



2117 

( 000000 

DLYCNT«00 

2118 

( 000002 

DEXWD3802 

2119 

( 000004 

DEXWD2»04 

2120 

( 000006 

DEXWD1B06 

2121 

( 000010 

TENAD1810 

2122 

( 000012 

TENAD2«12 

2123 

( 000014 

TO10BC*14 

2124 

( 000016 

TOll BC*1 6 

2125 

( 000020 

TO10AD«20 

2126 

( 000022 

TOl 1 AD«22 

2127 

( 000024 

TO10DT«24 

2128 

( 000026 

T0liDT»26 

2129 



2130 



2131 

1 000030 

DIAGl-30 

2132 

( 000032 

DIAG2-32 

2133 

( 000034 

STATUS-34 

2134 

( 000036 

DIAG3®36 

2135 



2136 



2137 



2138 

2139 

( 000774 

DTEIV1*774 

2140 

( 000770 

DTEIV2»770 

2141 

( 000764 

DTEIV3»764 

2142 

2143 

( 000760 

DTEIV4-760 

2144 



2145 



2146 



2147 



2148 



2149 

2150 

( 100000 

INTI 1«BIT1 5 

2151 



2152 



2153 



2154 

( 100000 

INT10-BIT15 

2155 

( 040000 

ZSTOP-BIT1 4 

2156 

( 020000 

TOl lBMaBIT J 3 

2157 




VERSION 2(17) MACY11 27(657) 18-DEC-74 11159 PAGE 


(BASE OP (FIRST) DTE20 DEVICE REGISTER BLOCK 
f SPACING BETWEEN CONSECUTIVE DTE20'S 
(MAXIMUM NUMBER OP DTE20"S ON ONE PDP-11 

(OFFSETS FROM the base OF THE DTE30 device register block 
(TO SPECIFIC 10/11 INTERFACE RAM LOCATIONS AND REGISTERS, 

I THE FIRST 12 REGISTERS ARE NOT INITIALIZED BY "INIT" (BECAUSE THEY ARE IN RAMS 
I DELAY COUNT (ADDRESS XXXX00) 

(DEPOSIT OR EXAMINE WORD 3 (ADDRESS XXXX02) 

(DEPOSIT OR EXAMINE WORD 2 (ADDRESS XXXX04) 

(DEPOSIT OR EXAMINE WORD 1 (ADDRESS XXXX06) 

(10 ADDRESS WORD 1 FOR DEX (ADDRESS XXXX10) 

(10 ADDRESS WORD 2 FOR DEX (ADDRESS XXXX12) 

(TO10 BYTE COUNT (ADDRESS XXXX14) 

(TOll BYTE COUNT (ADDRESS XXXX16) 

(TO10 PDP1 1 MEMORY ADDRESS (ADDRESS XXXX20) 

(TOU PDP11 MEMORY ADDRESS (ADDRESS XXXX22) 

(TO 10 PDP1 1 DATA WORD (ADDRESS XXXX24) 

(TOll PDP11 DATA WORD (ADDRESS XXXX26) 

( THE LAST 4 REGISTERS ARE INITIALIZED BY "INIT" (BECAUSE THEY ARE IN FLIP-FLOPS 
(DIAGNOSTIC WORD 1 (ADDRESS XXXX30) 

(DIAGNOSTIC WORD 2 (ADDRESS XXXX32) 

(10/11 INTERFACE STATUS WORD (ADDRESS XXXX34) 

(DIAGNOSTIC WORD S (ADDRESS XXXX36) 

( THE FOLLOWING ARE THE ADDRESSES OF THE DTE20 INTERRUPT VECTORS 

(INTERRUPT VECTOR FOR DTE20 #1 

(INTERRUPT VECTOR FOR DTE 20 #2 

(INTERRUPT VECTOR FOR DTE20 #3 

(INTERRUPT VECTOR FOR DTE20 #4 

( Bit assignments for various DTE20 registers used by this ROM code 

(BIT ASSIGNMENTS FOP TO10BC 

(SET DONE AND INTERRUPT BOTH 10 AND 11 

(BIT ASSIGNMENTS FOR T011BC 

(SET DONE AND INTERRUPT BOTH 10 AND 11 
(STOP ON NULL (ZERO) CHARACTER 
(Byte size for To-ll byte transfers 
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2158 

( BM873-YD 

- XL 10 (PDP- 

2159 

( BM873-YD ,Pl 1 

DTE20 DEVICE 

2160 



2161 



2162 

( 000100 

DRESETOBIT6 

2163 



2164 



2165 

( 000020 

DUPE»BXT4 

2166 

1 000004 

DURE»BIT3 

2167 

( 000002 

NUPEmBXTl 

2168 



2169 



2170 



2171 

( 000020 

CDD«BIT4 

2172 

( 000002 

CNUPEaBXTl 

2171 

( 000001 

TO10BM«BXT0 

2174 



2175 



2176 



2177 

I 100000 

DON10S»BIT15 

2178 

1 040000 

DON10CBBXT14 

2179 

1 020000 

ERR10$»BXT13 

2180 

1 010000 

ERRl0CmBXTl2 

2181 

1 004000 

XNTliS»BITll 

2182 

( 002000 

INT11C»BIT10 

2183 

( 001000 

PERCLR»BIT9 

2184 

1 000400 

XNTlCSftBXTS 

2185 

( 000200 

DONlia*BlT7 

2186 

( 000100 

D0NUC*BIT6 

2187 

( 000040 

XNTRONoBXTS 

2188 

( 000020 

EBUSPC»BIT4 

2189 

( 000010 

INTROF®BIT3 

2190 

f 000004 

EBUSPSWBIT2 

2191 

( 000002 

ERRllSaBlTl 

2192 

( 000001 

ERRl 1C»BIT0 

2193 



2194 



2195 



2196 

( 100000 

TOl0DN«BITi5 

2197 

I 020000 

TO10ERWBIT13 

2198 

) 010000 

RAMIS0«BIT12 

2199 

I 004000 

TOllDBwBITli 

2200 

1 002000 

DXWRD1BBIT10 

2201 

» 001000 

MPEl 1»BIT9 

2202 

> 000400 

TO10DB»BIT8 

2203 

( 000200 

T011DNSBIT7 

2204 

I 000100 

EBSEL»BIT6 

2205 

( 000040 

NULSTP»BIT5 

2206 

1 000020 

BPARER«8IT4 

2207 

I 000010 

RSTRCT«BIT3 

2208 

( 000004 

DEXD0N»BIT2 

2209 

I 000002 

TOllEReBITl 

2210 

f 000001 

INT3ON»BIT0 
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j BIT ASSIGNMENTS rOR DIAG2 (WRITE) 
t PERFORM DIAGNOSTIC CLEAR 

I BIT ASSIGNMENTS FOR DUG) (READ) 

(DATO unibus parity arrer 
JDATO UNIBUS receive arrer 
I npr unibus parity arrer 

(BIT ASSIGNMENTS FOR DIAGI (WRITE) 

(Clear DUPE and DURE error 61 age 

(Clear nupe arrer flag 

(Byte lisa for To-10 byta tranafar 

(BIT ASSIGNMENTS FOR STATUS (WRITE) 

( SET TO10 DONE 
(CLEAR TO10 DONE 
f SET TO 10 ERROR 
(CLEAR TO10 ERROR 

(Rina the PDP»lt*s doorball (interrupti the -u) 

(Step ringing tha PDP-11 # fi doorbell 

(CLEAR -11 MEMORY PARITY ERROR 

(Ring the PDP-ta'e doorbell (interrupti the -10) 

(SET TOii DONE 

(CLEAR TOii DONE 

(Enable DTE20 interrupta to the -11 
(Clear «ebus parity error" 

(Disable tha PDP-11 Intarupti 
(SET "EBUS parity error" 

(SET TOii ERROR 
(CLEAR TOH ERROR 

(BIT ASSIGNMENTS FOR STATUS (READ) 

(TO10 DONE 

(TO 10 ERROR (NPR TIMEOUT OR BUS ERROR) 

(RAM word read is an zeros 

ll • tha PDPll's doorbell is ringing 

(DEPOSIT OR EXAMINE WORD ONE 

(Parity error within pdp-h memory 

d • the PDP»l0*s doorbell is ringing 

(TO 11 DONE 

(E BUFFER SELECT 

(NULL STOP 

(EBus parity error 

(This PDP-11 is "RESTRICTED" 

(DEPOSIT OR EXAMINE DONE 

(TO U ERROR (NPR TIMEOUT OR BUS ERROR) 

(DTE20 interrupts (to the -n) are enabled 


debmd macyu 

BM873D.P11 
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2211 

(BM873-YD 

- k: 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

I BM8 7 3-YD , PI 1 

PROI 

2219 


The 

2220 

2221 

2222 


to 

2223 

2224 

2225 


1 , 

2226 

2227 


2. 

2228 

2229 


3. 

2230 

2231 

2232 


4, 

2233 

2234 


5, 

2235 

2236 


6. 

2237 

2238 

2239 


7 . 

2240 
2 241 
2242 


8, ! 

2243 

2244 


9, i 

2245 

2246 

2247 


10, 

2248 

2249 


11 , 

2250 

2251 

2252 


12 . 

2253 

2254 


13, 

2255 

2256 


14. 

2257 

2258 

2259 

2260 
2261 


15, 

2262 
226 3 
2264 


16, 
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CONO (SRI 1BICL1 1PTICLT01 1 1CLTO10 I PILDEN) 


CONO (CP11B] 


CONI (DEAD11) * 1 
- CONI (DEAD! 1 3 * 0 


DATAO (1365) 


PDP-ll's doorbell - CONOCTOUDB) 

until "-10 ringing -ll's doorbell" is turned o ff by the - 
(l.e, until CONlCTOUDB] becomes zero). 

le the DTE20 to use PI 0 interrupts 
(l.e, set CONO [PlLDEN 1 PI0ENB) ) , 

9, set up the To-10 byte pointer (in the EPT) for the first 3,5K, 


DATAO (1000) 


"interrupt -10 only" 

11, Wait for "T0-10 done" or "To-10 error" 


CONI (TO10DN 1 TO10EP) 


TO10DN and TO10ER 


CONO tCLTOts) . if error# go to step i7. 


"Interrupt -10 only" (DATAO (1000))# unless this is the 
last 3 ,5K (of 28 K 5 » in which ease indicate "interrupt 
both processors" (DATAO CTOlOtBI 10001 ) • 


16 , Go to step 11. 
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2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 
227 B 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 


IBM873-YD - KL10 (PDP-11) 256 WORD BOOTSTRAP POM VERSION 2X17) MACYli 27(657) 18-DEC-74 1U59 PAGE 1 

I BMB7 3-YD , P 1 1 PROCEDURE BY WHICH THE PDP-10 BOOTSTRAPS AND/OR DUMPS THE PDP-11 


17. Set up To-ll byte pointer (in the EPT) for "PDP-U bootstrap", 

Note that the firat word of thii "PDP-11 bootstrap" must 
be the bit pattern 000240 (a PDP-11 NOP instruction) , 

18. Ring the PDP-li's doorbell - CONO CTOiiDB) 

19. wait for either toudb to 90 off cconktoudb] « 0)# 

or TO10DB to eome on (CONI (TO10DB] ■ l). 

20. If no error was noted in step 12# toudb should go off 

(TO10DB comint? on indicates a massive screwuP), 

If an error wes noted in step 12# TOilDB going oft indicates 
that the error was "non-fatal" (non-ex-mem or -11 memory 
parity) and the -11 is proceeding. TO10DB coming on indicates 
that the error was "fatal" and the -11 is HALTED AT LOCATION 171714, 
In this latter ease the -10 must restart from step 1, 

21. If TOilDB went off, wait for "To-ll done" or "To-ll error" 

• CONI (TOUDNITOHER) 

22. Note whether there was an error • CONI (TOilER) 

23. Turn oft TOliDN and TOilER and ring the PDP-ll*s doorbell 

- CONO CTOllDBlCLTOin 

24. Walt for either TOUDB to go off CCONKTOUDB] e 0), 

or TO10DB to eome on (CONI CTOtBDBl • l), 

25. toudb going oft indicates that the PDP-11 found no errors 

and is transferring control to the code which was just 
received from the -10, in this ease the -10 should start 
following the protocol of this code, 

26. TO10DB coming on indicates that the PDP-11 has found an 

error (or that the first word transmitted wasn't the 

bit pattern 000240), and the PDP-11 18 HALTED AT LOCATION 173766, 

In this ease the -10 must restart from step 1, 


DZBMD MACYli 27(657) 5-MAR-75 11147 PAGE 50 

BM873D.P11 MAINDEC-ll-DZBMD-D BM873 UNIVERSAL RESTART LOADER DIAGNOSTIC, 


2312 


IBM873- 

•YD 

- KL10 

(PDP-11) 

256 WORD BOOTSTRAP ROM 

VERSION 2(17) MACYli 27(697) 18-DEC-74 11159 

2313 

2314 


f BM8 7 3* 

•YD , PI 1 

BUTTON 

#4 - BOOTSTRAP 

INITIATED BY THE PDP-10 (THROUGH DTE20) 

2315 

2316 


> 

000130 

dtecor 

■ 

130 

>Core address Into which to store DTE20 regs. 

2317 


> 

000014 

DTEREG 

a 

•D12 

>Number 

of DTE20 registers to store 

2318 


1 

000400 

DTEWDC 

» 

•D256 

>word count for secondary bootstrap from the -10 

2319 






> ENTER 

HERE WHEN THE DTE20 PRESSES BUTTON 14 (BOOTSTRAP INITIATED 

2320 






> 

BY THE PDP-10, 

THROUGH THE DTE20) 

2321 

004534 

010037 

1173534 

010037 

BUT0N4I 

MOV 

R0, 8SR0TOR7 

> SAVE R0 IN PDP-11 MEMORY LOCATION "R0TOR7" 

2322 

004536 

000040 

1173536 

000040 




2323 

004540 

010700 

1 1 7 3540 

010700 


MOV 

PC,R0 

> USE R0 FOR A SUBROUTINE RETURN ADDRESS 

2324 

004542 

000644 

f 173542 

000644 


BR 

REGSAV 

> GO TO THE "REGISTER SAVING" SUBROUTINE 

2325 

004544 

005005 

1173544 

008005 


CLR 

R5 

>8ET RS ■ 0 

2326 

004546 

012501 

1173546 

012501 


MOV 

(R5)+,R1 

> SAVE LOCATION 0 IN R1 

2327 

004550 

012503 

1 173550 

012503 


MOV 

(R5U,R3 

> SAVE LOCATION 2 IN R1 

2328 

004552 

012504 

1173552 

012504 


MOV 

(R5)+,R4 

> SAVE LOCATION 4 IN R4 

2329 

004554 

011500 

1173554 

011500 


MOV 

(R5),R0 

> SAVE LOCATION 6 IN R0 

2330 

004556 

012715 

1173556 

012715 


MOV 

8PR7, (R5) 

> SET UP PRIORITY FOR NON-EX-MEM TRAP 

2331 

004560 

000340 

1173560 

000340 





2332 

004562 

005745 

1173562 

008745 


TST 

"(R5) 

> SET RS * 4 

2333 

004564 

012702 

> 173564 

012702 

10$ t 

MOV 

SDTEBAS-DTESIZ, 

R2 

2334 

004566 

174340 

1173566 

174340 





2335 

004570 

010715 

) 173570 

010715 


MOV 

PC#(R5) 

> STORE ADDRESS FOR NON-EX-MEM TRAP 

2336 

004572 

010506 

>173572 

010506 


MOV 

RS,SP 

>8ET STACK POINTER • 4 

2337 

004574 

062702 

>173574 

062702 

1 1 • * 

ADD 

SDTESIZ, R2 

>R2 POINTS TO THE NEXT DTE20 

2338 

004576 

000040 

> 173576 

000040 





2339 

004600 

105702 

1173600 

105702 


TSTB 

R2 


2340 

004602 

100770 

>173602 

100770 


BMI 

10$ 

> START LOOKING FROM THE BEGINNING AGAIN 

2341 

004604 

032762 

>17)604 

032762 


BIT 

#T0i iDB, STATUS (R2) >Is this -10 ringing the -u's doorbell? 

2342 

004606 

004000 

>173606 

004000 





2343 

004610 

000034 

>173610 

000034 





2344 

004612 

001770 

>173612 

001770 


BEQ 

US 

>If it Is not, go loofc for another -10 

2345 

004614 

026217 

>173614 

026217 


CMP 

TO10BC(R2), (PC) 

iCHECK FOR A CODE (1165) FROM THE PDP-10 

2346 

2347 

004616 

000014 

>173616 

000014 




> INDICATING THAT IT WANTS TO BOOTSTRAP THE 

2348 

004620 

001365 

>173620 

001365 


BNE 

US 


2349 






> NOTE ' 

THAT AT THIS POINT R2 CONTAINS THE ADDRESS Of THE DEVICE REGISTER 

2350 






> 

BLOCK FOR THIS 

DTE20, THAT RS * 4, AND THAT SP > 4 

2351 

004622 

005725 

>173622 

005725 


TST 

(R5) + 

> SET RS e 6 

2352 

004624 

010015 

>173624 

010015 


MOV 

R0, (R5) 

> RESTORE THE CONTENTS OF LOCATION 6 

2353 

004626 

010445 

>17)626 

010445 


MOV 

R4,-(R5) 

> RESTORE THE CONTENTS OF LOCATION 4 

2354 

004630 

010345 

>173630 

010345 


MOV 

R3,*(R5) 

> RESTORE THE CONTENTS OF LOCATION 2 

2355 

004632 

010145 

>173632 

010145 


MOV 

R1,-(R5) 

> RESTORE THE CONTENTS OF LOCATION 0 

2356 






> Notei 

At this time R5 

a 0, This feet will be used later. 

2357 

004634 

012700 

>173634 

012700 


MOV 

#DTECOR,R0 

>R0 > cere address for storing DTE20 registers 

2358 

004636 

000130 

>173636 

000130 




2359 

004640 

010204 

>173640 

010204 


MOV 

R2,R4 


2360 

004642 

012420 

>173642 

012420 

lit 

MOV 

(R4)+, (R0) ♦ 

>Seve the next DTE20 register in core 

2361 

004644 

022700 

>173644 

022700 


CMP 

#<DTEREG*2>*DTECOR,R0 >Hava we finished yet? 

2362 

004646 

000160 

>173646 

000160 





2363 

004650 

101374 

>173650 

101374 


BHI 

7$ 

> Loop until we neve finished 





sss ss 

Ui CJt U» Oi u* 
(rf s 
« (US 'is 


*S»SIJi8(MS»ia 



cqzntsmxnsnx 

tJUO’OO'OO'OOD 


*<*<*< K *< K ♦< •< *< •< 

xx- • <n o •«* « « 


rprcpppppp 

£SXXSCS£££ 
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2412 004772 000100 f 173772 000100 

2413 004774 000032 >173774 000032 


a» o 

3 N 
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2535 

007772 

012737 

004000 

010156 


MOV 

IMAP. YD, TABLE 

| 8ET FOR START OF TABLE 

2536 

010000 

012737 

004776 

010160 


MOV 

IEND.YD, ALL5ND 

1 SET END OF TABLE 

2537 

010006 

012737 

173776 

010170 


MOV 

#173776, LASTA 

| SET LAST ROM ADDR 

253S 

010014 




680 5 




2339 

010014 

010237 

014736 



MOV 

R2, VERSON 

1 STORE VERSION TYPE,. 

2540 

010020 

003737 

010156 



TST 

TABLE 

I HAS A MAP BEEN SELECTED? 

2541 

010024 

001003 




BNE 

38 

jBR IF OK.,, 

2542 

010026 

104401 

011014 



TYPE 

iBM.ERR 

j TYPE ERROR 

2543 

010032 

000666 




BR 

28 

j GO AND GET CORRECT MAP, 

2544 

010034 

104401 

014200 


38* 

TYPE 

,M8G| 

j TYPE MESSAGE FOR TEST NUMBER 

2545 

010040 

012704 

000002 



MOV 

#2,R4 

| SET FOR MAX 2 INPUTS FROM TTY 

2546 

010044 

005003 



X.X, 1 

CLR 

R3 

f CLEAR CHAR STORAGE 

2547 

010046 

105777 

171132 


1*1 

TSTB 

9TKCSR 

| WAIT FOR THE TTY KEY TO BE HIT 

2548 

010052 

100375 




BPL 

1* 

f KEEP WAITING,,.,,., 

2549 

010054 

104406 




KEY. TO 

R2 

| GO ECHO IT ISTRIP BIT 7 FROM IT 

2550 

010056 

022702 

000015 



CMP 

#18, R2 

1 WAS IT A CP??? 

2551 

010062 

001404 




BEQ 

2* 

| BR IF CR 

2552 

010064 

005304 




DEC 

R4 

f ONE MORE CHAR TO GO BEFOR ERROR 

2553 

010066 

001426 




BEQ 

31 

| IF R4«0 THEN ERROR 

2554 

010070 

010203 




MOV 

R2,R3 

1 MOV THE CHAR TO R3 

2555 

010072 

000765 




BR 

1« 

1 GO WAIT FOR ANOTHER CHAR 

2556 

010074 

022703 

000061 


2*1 

CMP 

#61, R3 

1 WAS 1 HIT?? 

2557 

010100 

001002 




BNE 

. + 6 

1 br if no 

2559 

010102 

000137 

010400 



JMP 

PRGi 

r GOTO PRG 1 

2559 

010106 

022703 

000062 



CMP 

#62, R3 

> WAS 2 Him 

2560 

010112 

001002 




BNE 

.46 

|BR IF NO 

2561 

010114 

000137 

011062 



JMP 

PRG2 

I GOTO PRG 2 

2562 

010120 

022703 

000063 



CMP 

#63, R3 

| WAS 3 HIT?? 

2563 

010124 

001002 




BNE 

.46 

|BR IF NO 

2564 

010126 

000137 

012116 



JMP 

PRG3 

1 GOTO PRGI 

2563 

010132 

022703 

000064 



CMP 

#64, R3 

1 WAS 4 HIT?? 

2566 

01013S 

001002 




BNE 

.46 

|3R IF NO 

2567 

010140 

000137 

013354 



JMP 

PRG4 

IGOTO PRG 4 

2568 

010144 

104401 

014432 


3*1 

TYPE 

, M.QM 

f NEITHER 1 OR 2 CR 3 OR 4 WAS HIT 

2569 

010150 

000137 

007140 



JMP 

RESTRT 

1 TYPE "??» GO TO THE BEGXNXNG, 

2570 

010154 

000000 



SAVSR1 1 

0 


1 SAVE THE SWR HERE, 

2571 

010156 

000000 



TABLE 1 

0 



2572 

010160 

000000 



ALLEND 1 

0 



2573 

010162 

006340 



EXTMAPi 

MAP.YX 



2574 

010164 

007136 



EXTENDI 

END.YX 



2575 

010166 

000000 



INXTFGl 

0 



2576 

010170 

000000 



LASTAt 

0 



2577 

010172 

104401 

010202 


NOROMI 

TYPE 

, NOROMS I TYPE 

CAN'T FIND A RESPONSE 

2578 

010176 

000000 




HALT 

iNO LOADER INSTALLED? 

2579 

010200 

000776 




BR 

• ®2 


2580 

010202 

003015 

031124 

050101 

N0R0M5* 

.ASCII 

<iSX12>/TRAP 

TO 4 ON 1ST READ OF 173000/ 


010243 

015 

044412 

020123 


, ASCIZ 

<15><12>/XS LOADER INSTALLED?/ 


010272 

005015 

040503 

023516 

nmatchi 

.ASCII 

<15*<I2> /CAN'T 

IDENTIFY LOADER AS YA,YB,YC, OR YD AFTER/ 


010352 

005015 

046503 

020120 


, ASCIZ 

< 1 B X 1 2>/CMP WITH LOC 173000/ 


.EVEN 
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BM873D, 

Pll 

MAINDEC 

•li-DZSMD 

®D 

BM873 

UNIVERSAL RESTART LOADER 

DIAGNOSTIC. 

25 81 





» PROGRAM 1 




2582 





» THE 

PURPOSE 

OF PROGRAM 1 IS 

TO 

READ THE ROM AND 

2583 





1 VERIFY THAT 

THE DATA IS CORRECT, ALL ADDRESSES 

2584 





> ARE 

READ, EXCECPT THE TRAP VECTOR, FIVE TIMES, 

2585 





J 





2586 





|THE 

SECOND PART OF THIS TEST 

VERIFIES THAT TRYING 

2587 





} TO WRITE THE 

ROM RE8UT8 IN A 

TIME OUT TRAP. 

2588 





jALL 

ADDRESS 

ARE WRITTEN WITH 

A 

•1 

2589 





f » AND 

ARE EXPECTED TO TRAP. 



2590 










2591 

010400 

012777 

014444 

170606 

PRGI I 

MOV 

# ,KEY» TO , R2 , 8TKVEC 

2592 

010406 

012777 

000100 

170570 


MOV 

#100, 9TKCSR 


f SET INTERRUPT ENABLE 

2593 

010414 

012737 

010400 

014616 


MOV 

#PRGl , PRG, NO 


f SET FOR PWR FAIL 

2594 

010422 

012737 

000500 

001232 


MOV 

#500 , ICOUNT 


j DO THIS TEST 500(8) TIMES, 

2595 

010430 

012737 

014620 

000004 

PRG. 1 1 MOV 

#N0.TRAP,9#4 


1 SET FOR UNEXPECTED TRAP, 

259$ 

010436 

012700 

173000 



MOV 

#173000, R0 


| SET BEGGINXNG ADDRESS 

2397 

010442 

012737 

010466 

001230 


MOV 

#21, LOCK 


1 IF SW09«lr GOTO 2# WHEN SCOPl IS 

2598 

010450 

013704 

010156 



MOV 

TABLE, R4 


j SET START OF MAP 

2599 

010454 

013737 

010170 

010760 


MOV 

LASTA, LAST 


1 SET LAST ADDRESS 

2600 

010462 

012703 

000005 


111 

MOV 

#5 , ,R3 


|DO EACH ADDRESS 5 TIMES, 

2601 

010466 

022700 

173024 


2*1 

CMP 

#173024, R0 


* DON'T DO THE VECTOR ADD, 

2602 

010472 

001001 




BNE 

,44 


1 BR IF NOT THE VECTOR ADD, 

2603 

010474 

022024 




CMP 

(R0)4, (R4)4 


IUPDATE TO NEXT ADDRESS 

2604 

010476 

022700 

173224 



CMP 

#173224, R0 


IDON'T DO THE TRAP VECTORS 

2605 

010502 

001001 




BNE 

.44 


1 NO THIS ISN'T A TRAP VECTOR, 

2606 

010504 

022024 




CMP 

( R0 ) * , (R4)+ 


JUPDATE THE POINTERS,. 

2607 

010506 

01 1005 




MOV 

(R0),R5 


IREAD THE ADDRESS 

2608 

010510 

011401 




MOV 

CR4),R1 


fREAD THE SOFTWARE ADDRESS 

2609 

010512 

020105 




CMP 

Rl,R5 


f DO THEY MATCH? 

2610 

010514 

001401 




BEQ 

.44 


» BR IF GOOD 

2611 

010516 

104001 




HLT 

l 


$ INCORRECT COMPARISON, 

2612 

010520 

032737 

004000 

177370 


BIT 

ISITU , 8WR 


| QUICK PASS,? 

2613 

010526 

001002 




BNE 

, + 6 


1 BR IF YES 

2614 

010530 

00S303 




DEC 

R3 


| HAS THAT ADD BEEN READ 5 TIMES? 

2615 

010532 

001353 




BNE 

21 


f BR IF NOT 5 TIMES 

2616 

010534 

023700 

010760 



CMP 

LAST, R0 


I WAS LAST ADDRESS CHECKED? 

2617 

010540 

001403 




BEQ 

.410 


1 BR IF YES 

2618 

010542 

104400 




SCOP1 



I LOCK ON THIS ADDRESS? 

2619 

010544 

022024 




CMP 

(R0)4,(R4)+ 


IUPDATE THE POINTERS, 

2620 

010546 

000745 




BR 

1$ 


ICONTINUE THE TEST, 

2621 

010550 

032737 

000001 

010154 


BIT 

#BIT0» SAVSRi 


1 EXTENDED WORD TO BE CHECKED? 

2622 

010556 

001413 




BEQ 

31 


»BR IF NO CHECKING, 

2623 

010560 

022737 

173776 

010760 


CMP 

#173776, LAST 


|IS ALL THE TEST DONE? 

2624 

010566 

001407 




BEQ 

3* 


1 BR IF YES, 

2625 

010570 

012737 

173776 

010760 


MOV 

#173776, LAST 


1 SET LAST ADDRESS, 

2626 

010576 

013704 

010162 



MOV 

EXTMAP,R4 


I SET EXTENDED MAP. 

2627 

010602 

005720 




TST 

(R0)4 


IPQP POINTER 

2628 

010604 

000726 




BP 

l# 


1 GO DO THE TEST, 
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2629 





1 TEST 

THAT WRITTING ROM RE5UTS 

IN A TIME OUT 

2630 

2631 





| TRAP, 





2632 

010606 

012737 

010632 

001230 

3*1 


MOV 

#58, LOCK 

II F SW09»1 GOTO 58 WHEN SCOPI IS HIT 

26 33 

010614 

012700 

173000 




MOV 

#173000, R0 

1 SET R0 WITH BASE ADDRESS OP ROM 

M • 2634 

010620 

012737 

010662 

000004 



MOV 

#68,814 

I SET rOR TIME OUT TRAP 

■ 2635 

010626 

012703 

000005 


4S| 


MOV 

#5 , , R3 

I DO EACH ADD 5 TIMES 

\ 2636 

010632 

022700 

17 3024 


51! 


CMP 

#173024, R0 

ICHECK rOR A TRAP VECTOR 

26 37 

010636 

001001 





BNE 

.44 

1 BR IF NOT VECTOR 

2638 

010640 

005720 





TST 

(R0)4 

fUPDATE THE REGISTER POINTER 

2639 

010642 

022700 

173224 




CMP 

#173224, R0 

j CHECK TOR THE OTHER VECTOR 

2640 

010646 

001001 





BNE 

.44 

|BR IF NOT THE VECTOR 

2641 

010650 

005720 





TST 

CR0)4 

1 UPDATE THE POINTER 

2642 

010652 

012710 

177777 




MOV 

1-1, (R0) 

I WRITE ROM WITH A »1 

2641 

010656 

000240 





NOP 


I WAIT ONE IN8TR, TIME 

2644 

010660 

104002 





HLT 

2 

| WRITING ROM DIDN'T TIME OUT. 

2645 

010662 

012706 

001200 


6$ « 


MOV 

#STACK,SP 

IRESTORE STACK 

2646 

010666 

032737 

004000 

177570 



BIT 

#BITl 1 , SWR 

I QUICK PASS? 

2647 

010674 

001002 





BNE 

.46 


2648 

010676 

005303 





DEC 

R3 

f DO EACH ADD 5 TIMES 

2649 

010700 

001354 





BNE 

58 

(NOT DONE WITH THIS ONE YET, 

2650 

010702 

032737 

000001 

010154 



BIT 

#BIT0, SAVSRl 

I EXTENDED 128. WORDS TO BE CHECKED? 

2651 

010710 

001404 





BEQ 

.412 

|8R IF NO 

2652 

010712 

022700 

173776 




CMP 

#173776, R0 

) HAVE ALL 256. WORDS BEEN CHECKED? 

2653 

010716 

001407 





BEQ 

78 

f BR ir ALL DONE 

2654 

010720 

000403 





BR 

.410 

f KEEP GOING 

2655 

010722 

023700 

010170 




CMP 

LA8TA.R0 

) ALL DONE?? 

2656 

010726 

001403 





BEQ 

78 

lHAVE ALL 128, WORDS DONE? 

2657 

010730 

104400 





SCOPi 


(CHECK 8W09 POR FREEZE 1 1 

2658 

010732 

005720 





TST 

(R0)4 

| UPDATE TO NEXT ADDRESS 

2659 

010734 

000734 





BR 

48 

(GO DO IT AGAIN 

2660 

010736 

005337 

001232 


781 


DEC 

ICOUNT 

f ITERATION COUNT DONE? 

2661 

010742 

001004 





BNE 

88 

f BR ir NOT DONE, 

2662 

010744 

004737 

014660 




JSR 

PC , EOP 

(TYPE END MESSAGE 

2663 

010750 

000137 

010400 




JMP 

PRGi 

(GO DO IT AGAIN, 

iu 2664 

010754 

000137 

010430 


881 


JMP 

PRG.l 

| GO RESTART, 

£ 2665 

M 2666 

010760 

000000 



LAST! 


0 



1 2667 

010762 

005015 

042504 

044526 

BM873XI 

.ASCII 

<15><12>/DEVICE 

; VERSION/ 


011002 

005015 

046502 

033470 



, ASCIZ 

<15><12>/BM873- 

Y/ 


011014 

005015 

026052 

026101 

BM.ERRi 

.ASCII 

<15X12>/*,A,B, 

C,D ONLY./ 


011036 

020040 

053040 

051105 

VERSl 


.ASCIZ 

/ VERSION! BM873-Y/ 






.EVEN 






r 
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2668 










2669 










2670 





(PROGRAM 2 




2671 





(BLIND 

READ FROM ROM, 



2672 





(THIS 

program 

WILL DUMP THE CONTENTS OF THE ROM OUT 


2673 





(PERFORMING NO 

CHECKING AT ALL, 


2674 





(PLEASE NOTE! 

NO CHECKING IS 

DONE. 


2675 





(NOTE! 

HITTING "CONTROL "C" 

RESTARTS AT TOP Or PROG. 


2676 





(NOTE! 

IF YOU 

LEAVE SW07«l| 

THE DUMP WILL 


f 267 7 






(BE MADE ON THE LINE 

PRINTER 


I 2678 






(IF IT 

EXISTS, 



I 2679 










V 2680 

011062 

012737 

011062 

014616 

PRG2I 

MOV 

• PRG2 , PRG.NO 

(SET FOR POWER FAIL 


2681 

011070 

012737 

014620 

000004 


MOV 

#NO , TRAP, 8#4 

(SET FOR UNEXPECTED TRAP TO 

4 

2682 

011076 

013737 

010170 

010760 


MOV 

LA8TA,LAST 



2683 

011104 

062737 

000002 

010760 


ADD 

#2, LAST 



2684 

011112 

105737 

177570 



TSTB 

SWR 

(IF SW07»1( OUTPUT TABLE ON 

LPT 

2685 

011116 

100004 




BPL 

• ♦12 

(IF IT EXISTS, BR IF 3W07«0 

2686 

011120 

012737 

177777 

015114 


MOV 

#«1 , LPTFLG 

(SET THE LPT FLAG 


2687 

011126 

000402 




BR 

.♦6 

(BR TO TEST 


2688 

011130 

005037 

015114 



CLR 

LPTFLG 

(CLEAR THE LPT FLAG 


2689 

011134 

012700 

173000 



MOV 

#173000, R0 

(SET R0 WITH THE STARTING ROM ADD, 

2690 

011140 

012777 

011430 

170046 


MOV 

#48, 8TKVEC 

( SET TTY VECTOR FOR CONTROL 

C 

2691 

011146 

012777 

000100 

170030 


MOV 

#100 , ITKC8R 

(SET TTY KYBD INTERRUPT EN, 


2692 

011154 

013703 

010156 



MOV 

TABLE, R3 

(SET POINTER, 


2693 

011160 

104401 

011456 



TYPE 

• DH.2 

(TYPE MESSAGE 


2694 

011164 

104401 

011556 



TYPE 

, DH, 2B 

(TYPE THE HEADER 


2695 

011170 

012737 

000007 

001256 

1*1 

MOV 

#7, TEMPS 

(SET COUNTER 


2696 

011176 

011001 




MOV 

(R0) , PI 

(READ THE ROM 


2697 

011200 

010037 

001252 



MOV 

R0, TEMPJ 

(STORE R0 


2698 

011204 

010137 

001254 



MOV 

RI, TEMPS 

(STORE R1 


2699 

011210 

022737 

006140 

010156 


CMP 

#MAP.Y,, TABLE 

(IF BM873.Y* SELECTEDl FILL 

TABLE 

2700 

011216 

001001 




BNE 

.♦4 

1 BR IF NOT BM873.Y# 


2701 

011220 

011023 




MOV 

(R0), (R3)+ 

(FILL THE TABLE,, 


2702 

011222 

005720 




TST 

(R0) + 

(POP THE POINTER 


2703 

011224 

104404 




CONVRT 


(TYPE AND CONVERT NUMBERS 


2704 

011226 

012076 




DT,2 


(IN DATA TABLE 2 


2705 

011230 

011001 



78! 

MOV 

(R0) ,R1 

(STORE ROM DATA 


2706 

011232 

010037 

001252 



MOV 

R0.TEMP3 

| STORE ROM ADDRESS 


2707 

011236 

010137 

001254 



MOV 

Rl.TEMPS 

(PREPARE DATA FOR TYPE OUT 


2708 

011242 

022737 

006140 

010156 


CMP 

#MAP.Y,, TABLE 

(IS BM873.Y* SELECTED? 


£ 2709 

011250 

001001 




BNE 

.♦4 

(BR IF NO., 


I 2710 

011252 

011023 




MOV 

(R0) , ( R 3 ) ♦ 

(FILL THE DATA TABLE 


I 2711 

011254 

005720 




TST 

(R0) ♦ 

(POP THE POINTER 


2712 

011256 

104405 




CNVRT 


(TYPE OUT MAP 


2713 

011260 

012110 




DT.2A 


(USE DATA TABLE 2k 


2714 

011262 

023700 

010760 



CMP 

LAST, R0 (HAS 

THE HIGHEST LIMIT BEEN HIT? 


2715 

011266 

001404 




BEQ 

28 

(BR IF ALL DONE, 


2716 

011270 

005337 

001256 



DEC 

TEMPS 

(DECREASE COUNTER 


2717 

011274 

001355 




BNE 

78 

(BR IF NOT 0| KEEP GOING 


2718 

011276 

000734 




BR 

IS 

(GO TYPE ADDRESS NOW 


2719 

011300 

032737 

000001 

010154 

2 # ! 

BIT 

#BIT0, SAVSRl 

(IS THE EXTENDED 128. WORDS 

TO BE CHECKED?? 

2720 

011306 

001442 




BEQ 

38 

(BR IF NO, 


2721 

011310 

012700 

173400 



MOV 

#173400, R0 

(RESET POINTER OF ROM 
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2722 

011314 

013703 

010162 



MOV 

EXTMAP.R3 

1 SET SOFTWARE MAP POINTER 

2723 

011320 

104401 

011671 



TYPE 

, DK , 2A 

} TYPE NEW HEADER 

2724 

011324 

104401 

011556 



TYPE 

»DH,2B 

1 TYPE ADDRESS AND *XX 

2725 

011330 

012737 

000007 

001256 

611 

MOV 

#7# TEMPS 

» SET TYPE OUT COUNTER 

2726 

011336 

011001 




MOV 

(R0),R1 

IREAD THE ROM 

2727 

011340 

010037 

001252 



MOV 

R0# TEMPI 

f STORE R0 

2728 

011344 

010137 

001254 



MOV 

R1 , TEMP4 

1 STORE R1 

2729 

011350 

012023 




MOV 

£R0)+#<R3>* 

f STORE THE DATA IN SOFTWARE MAP 

2730 

011352 

104404 




CONVRT 


f TYPE AND CONVERT NUMBERS 

2731 

011354 

012076 




dt,2 


f IN DATA TABLE 2 

2732 

011356 

011001 



861 

MOV 

(R0),R1 

> SAVE THE ROM DATA 

2733 

011360 

010037 

001252 



MOV 

R0, TEMPS 

fSAVE THE ROM ADDRESS 

2734 

011364 

010137 

001254 



MOV 

R1»TEMP4 

1 SET DATA rOR TYPE OUT 

2735 

011370 

104405 




CNVRT 


f TYPE OUT THE TABLE, 

2736 

011372 

012110 




DT.2A 


iPIND DATA THROUGH DATA TABLE 2 A 

2737 

011374 

012023 




MOV 

<R05*,CRI)+ 

j STORE THE DATA IN SOFTWARE TABLE 

2738 

011376 

022700 

174000 



CMP 

#1 74000# R8 

I HAS THE HIGHEST LIMIT BEEN HITT 

2739 

011402 

001404 




BEQ 

31 

j BR ir ALL DONE, 

2740 

011404 

005337 

001256 



DEC 

TEMPS 

1 DEC TABLE COUNTER 

2741 

011410 

001362 




BNE 

86 

j BR TO JUST TYPE DATA 

2742 

011412 

000746 




BR 

66 

t BR TO TYPE ADDRESS 

2743 

011414 

104401 

014437 


lit 

TYPE 

iMCRLF 

|DUMP LAST LINE FROM LPT, 

2744 

011420 

005000 




CLR 

R0 

ICLEAR DATA LIGHTS 

2745 

011 422 

000000 




HALT 


f HIT CONTINUE TO PROCEED, 

2746 

011424 

000137 

011062 



JMP 

PRG2 

f GOTO PRG 2 

2747 






f ENTER 

BY KYBD INTERUPT. 

2748 

011430 

104406 



4*1 

KEY, TO 

»R2 

t ECHO KEY 

2749 

011432 

022702 

000003 



CMP 

• 3iR2 

! WAS CONTROL C HIT 

2750 

011436 

001006 




BNE 

5* 

jBR IF NO 

2751 

011440 

005037 

015114 



CLR 

LPTFLG 

I STOP PRINTING ON LPT 

2752 

011444 

104401 

013326 



TYPE 

,MC 

iTYPE *C 

2753 

011450 

012716 

011062 



MOV 

#PRG2,CSP) 

f SET FOR RETURN 

2754 

011454 

000002 



58 i 

RTI 


! LEAVE THIS ROUTINE 

2755 









2756 

011456 

006414 

005012 

016412 

DH.2I 

.ASCII 

<14X1 5X12X12X12X35X37X1 77X1 77X1 ?7> /BLIND READ Or ROM/ 


011511 

015 

006412 

077577 


, ASCXZ 

<15X1 2X1 5X177X1 7 7 >/NOTEl NO CHECKING IS PERFORMED,/ 


011556 

005015 

040412 

042104 

DH,2Bl 

.ASCII 

<15><1 2X1 2^ /ADDRESS ADD+00 ADD+02 ADD+04/ 


011620 

020040 

042101 

025504 


, A5CIZ 

/ ADD+06 ADD+10 ADD+12 ADDf 14 ADD+16/ 


011671 

015 

005012 

054105 

DH , 2 A 1 

.ASCII 

<15X1 2X1 2> /EXTENDED 128. WORD ROM DUMP,/ 


011730 

005015 

047503 

052116 


.ASCII 

<15X12>/C0NTENTS DUMPED IS PLACED IN THE SOFTWARE/ 


012003 

015 

046412 

050101 


.ASCII 

<15X12>/MAP, 

VISUAL INSPECTION OF DATA IS/ 


012046 

005015 

047531 

051125 


.A5CXZ 

<1IX12»/Y0UR 

RESPONSIBILITY 1 1 / 






.EVEN 




2757 

012076 

000002 



DT.2I 

2 



2758 

012100 

206 

003 



.BYTE 

206,3 


2759 

012102 

001252 




TEMPS 



2760 

012104 

006 

002 



.BYTE 

6,2 


2761 

012106 

001254 




TEMP4 



2762 









2763 

012110 

000001 



DT.2AI 

1 



2764 

012112 

006 

002 



.BYTE 

6,2 


2765 

012114 

001254 




TEMP4 
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2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 
27 7 4 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 


f PROGRAM 3 

jPROGRAM 3 IS THE SAME AS PROGRAM l ONLY YOU THE 
fUSER HAS THE CHANCE TO ALTER THE MAP WHICH IS 
^COMPARED TO THE DATA IN THE ROM ADDRESSES 
f NOTE THE FOLLOWING COMMANDS! 

I 

I *D DATA INSERT DATAf HIT LINE FEED TO ESCAPE, 

|*R RUN RUN THE PROGRAM 

|*L LIST LIST THE SOFTWARE TABLE ON TTY, 

f*P PRINT PRINT LISTING OF SOFTWARE TABLE ON LINE PRINTER, 

J*A ADDRESS INPUT THE ADDRESS OF THE DATA YOU WANT TO ALTER, 

I LINE FEED WHEN IN THE DATA INPUT MODE HIT LINE FEED TO 

I ESCAPE TO COMMAND MODE 

>CR CARRAGE RETURN* WHEN IN THE DATA INPUT MODE A CARRAGE RETURN 
f ZEROS NEXT ADDRESS AND WAITS FOR NEW DATA, 

t 


2786 

012116 

005037 

015114 


PRG3 1 

CLR 

LPTFLG 

f SET FOP TTY OUTPUT 

2787 

012122 

012737 

012116 

014616 


MOV 

IPRG3 , PRG .NO 

! SET FOR POWER FAIL 

2788 

012130 

012777 

012170 

167056 


MOV 

•ST.VEC , 8TKVEC 

! SET FOR KEY BOARD INTERUPT 

2789 

012136 

01 3701 

010156 



MOV 

TABLE, R1 

jDEFAULT STARTING ADDRESS TO MAP 

2790 

012142 

010137 

013352 



MOV 

Rl, ADDRESS 

t SAVE THE SOFTWARE ADDRESS 

2791 

012146 

104401 

014341 


XHOLDI 

TYPE 

, MASTER 

i TYPE AN "*•' 

2792 

012152 

012777 

000100 

167024 


MOV 

#100, 8TKCSR 

1 SET INTERUPT ENABLE FOR TTY 

2793 

012160 

000001 




WAIT 


1 HIT A KEY 

2794 

012162 

000771 




BR 

XHOLD 

f GO BACK AN TYPE AN 

2795 

012164 

000001 



HOLDi 

WAIT 


| HIT A KEY 11 

2796 

012166 

000776 




BR 

HOLD 

> GO BACK AND HIT AGAIN { } 

2797 

012170 

104406 



ST.VECl 

KEY.TO, 

,R2 

I ECHO CHAR AND STRIP BIT 7 

2798 

012172 

104401 

014437 



TYPE 

, MCRLF 

f TYPE A CARRAGE RETURN ♦ LINE FEED 

2799 

012176 

022702 

000114 



CMP 

#114, P2 

f WAS AN "L" (LIST) HIT? 

2800 

012202 

001571 




BEQ 

SRV.L 

2801 

012204 

022702 

000120 



CMP 

#120, R2 

1 WAS A "P» (PRINT) HIT? 

2802 

012210 

001563 




BEQ 

SRV.P 


2803 

012212 

022702 

000104 



CMP 

#104, R2 

j WAS A "D" (DATA) HIT? 

2804 

012216 

001417 




BEQ 

SRV , D 


2805 

012220 

022702 

000122 



CMP 

#122, R2 

1 WAS AN »R" (RUN) HIT? 

2806 

012224 

001002 




BNE 

.46 


2807 

012226 

000137 

012754 



JMP 

SRV.R 


2808 

012232 

02270? 

000101 



CMP 

#101, R2 

J WAS AN "A” (ADDRESS) HIT? 

2809 

012236 

001501 




BEQ 

SRV, A 

2810 

012240 

02270? 

000015 



CMP 

# 1 5 , R 2 

JWAS CARRAGE RETURN HIT? 

2811 

012244 

001001 




BNE 

.44 

2812 

012246 

000002 




RTI 


J GO WAIT FOR VALID CHAR, 

2811 

012250 

104401 

01 4432 



TYPE 

,M,QM 

» TYPE A »?" 

2814 

012254 

000002 




RTI 


> NEITHER A « L n , " P" , "D « , " R " A» , OR 

2815 

012256 




SR V, D J 



2816 

012256 

012777 

012310 

166730 

2*! 

MOV 

# 4S , 8-TKVEC 

j SET VECTOR FOR DATA INPUT, 

281 7 

012264 

0137 0 1 

01335? 



MOV 

ADDRESS, PI 

1 RESET ADDRESS POINTER, 

2818 

012270 

0101 37 

001254 



MOV 

R 1 # TEMP 4 

j SET FOR TYPE OUT ROUTINE 

2819 

012274 

104404 




CONVRT 


; TYPE THE SOFTWARE ADDRESS 
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3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 


I PROGRAM 4 

I PROGRAM 4 CHECKS THE TRAP VECTOR ADDRESS. 

I THE PROGRAM SIMULATES ACTIVATING THE BUTTON 
I FOR EACH CHANNEL AND THEN READS 
I THE CONTENTS OP THE ADDRESS. 

» ON THE PIRST PASS THE contents WILL 
I BE TYPED OUT POR YOU THE 
I USER TO VERIPY, APTER THIS THE PROGRAM 
f DOES A COMPARE TO THE PREVIOUSLY POUND DATA 
I AND REPORTS AN ERROR IP DIFFERENT THAN 
| WHAT WAS FOUND BEFORE, 


013354 

012777 

014444 

165632 

PRG4I 

MOV 

• .KEY.TO.R2, 0TKVEC 

013362 

012777 

000100 

165614 


MOV 

#100. STKCSR 


013370 

012737 

013354 

014616 


MOV 

•PRG4#PRG.NO 

| SET POR POWER PAIL 

013376 

005037 

001244 



CLR 

LSTERR 

IPREPARE ERROR CONDITIONS 

013402 

012706 

001200 



MOV 

•STACK, SP 

f SET THE STACK POINTER 

013406 

012737 

020000 

001232 


MOV 

#20000. ICOUNT 

ISET ITERATION COUNT TO 20000(B) 

013414 

005737 

014042 



1ST 

FLAG4 

f HAVE I BEEN HERE BEFOR?? 

013420 

001073 




BNE 

TAG, A 

)BR IF NOT FIRST TIME HERE, 

013422 

005137 

014042 



COM 

PLAG4 

I SET THE FLAG 

013426 

012705 

000002 



MOV 

• 2»R5 

> SET RS FOR SWITCH 1 

013432 

012704 

014032 



MOV 

#LOCl , R4 

ISET STORAGE LOCATION 

013436 

012737 

014620 

000004 


MOV 

#NO ■ TRAP# §04 

| SET FOR TIME OUT TRAP 

013444 

012737 

000001 

001252 


MOV 

#1, TEMPI 

f SET FOR MESSAGE ON CHANNEL NO, 

013452 

104401 

014044 


III 

TYPE 

, MCHAN 

f TYPE MESSAGE ABOUT CHANNEL 

013456 

104405 




CNVRT 


»GOTO TYPE AND CONVERT ROUTINE 

013460 

014164 




DT.4A 


| CONVERT DATA TABLE 4A 

013462 

104401 

014060 



TYPE 

, mactv 

I TYPE REST OF MESSAGE 

013466 

104401 

014073 


28* 

TYPE 

, MADD1 

f TYPE ADDRESS MESSAGE 

013472 

012700 

173024 



MOV 

•173024, R0 


013476 

005037 

173024 



CLR 

01173024 


013502 

010537 

173024 



MOV 

RS# SI 173014 

| WRITE ROM WITH SWITCH 

013506 

000240 




NOP 


| WAIT ONE INSTR, TIME 

013510 

012706 

001200 


361 

MOV 

•STACK, SP 

ISET THE STACK POINTER 

013514 

012700 

173024 



MOV 

#17)024, R0 

ISET FOR Error message 

013520 

012737 

014620 

000004 


MOV 

•NO, TRAP, ##4 

f SET FOR no MORE TRAPS 

013526 

013737 

173024 

001254 


MOV 

01173024, TEMP4 

I READ THE ADDRESS 

013534 

104405 




CNVRT 


ITYPE OUT AND CONVERT 

013536 

014172 




DT,4B 


IDATA TABLE 4B 

013540 

013724 

173024 



MOV 

#•173024, (R4)+ 

ISTORE THE INFORMATION FOUND 

013544 

104401 

014127 



TYPE 

,MADD2 

1 TYPE THE SECOND ADDRESS MSG 

013550 

012700 

173224 



MOV 

•173224, R0 

1 SET FOR ERROR CONDITION, 

013554 

013737 

173224 

001254 


MOV 

01173224, TEMP4 

ISTORE ROM DATA 

013562 

104405 




CNVRT 


fCONVERT and TYPE 

013564 

014172 




DT«4B 


|DATA TABLE 4B 

013566 

005237 

001252 



INC 

TEMP3 

I GET READY FOR NEXT 8WITCH SETTING 

013572 

000241 




CLC 


ICLCAR THE CARRY BIT 

013574 

006105 




ROL 

RS 

| UPDATE RS 

013576 

022705 

000040 



CMP 

•40, RS 

| ALL SIMULATED SWITCHS DONE? 

013602 

001323 




BNE 

16 

I SR IF NOT ALL DONE 

013604 

000137 

013354 



JMP 

PRG4 

| JMP AND DO TEST AGAIN WITH OUT TYPE OUT 
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3083 

013610 

012703 

000002 


TAG, At 

MOV 

• 2,R3 

1 SIMULATE SWITCH 1 

3084 

013614 

012704 

014032 



MOV 

•LOC1/R4 

I GET LOCATION WHERE DATA IS STORED 

3085 

013620 

012737 

014620 

000004 

1#* 

MOV 

•N0,TRAP,##4 

IPREPARE FOR TIME OUT TRAP 

3086 

013626 

005037 

173024 



CLR 

08173024 


3087 

013632 

010337 

173024 



MOV 

R3, ##173024 

| WRITE THE ROM 

3088 

013636 

000240 




NOP 


} WAIT ONE INSTR, TIME 

3089 

013640 

012706 

001200 


281 

MOV 

• STACK, SP 

|SET THE STACK POINTER, 

3090 

013644 

012737 

014620 

000004 


MOV 

•NO,TRAP,0#4 

|SET FOR NO MORE TRAPS, 

3091 

013652 

012700 

173024 



MOV 

•173024, R0 

ISET FOR ERROR MESSAGE 

3092 

013656 

011401 




MOV 

CR4),R1 

ISET FOR COMPARISON 

3093 

013660 

013705 

173024 



MOV 

#•173024, RS 

| GET THE DATA FROM THE ROM 

3094 

013664 

020105 




CMP 

R1,RS 

|IS THE DATA THE SAME?? 

3095 

013666 

001401 




BEQ 

.♦4 

IBR IF GOOD DATA, 

3096 

013670 

104001 




HLT 

1 

| ERROR, DATA READ FIRST TIME NOT THE SAME 

3097 

013672 

012700 

173224 



MOV 

#173224, R0 

ISET FOR ERROR MESSAGE 

3098 

013676 

013705 

173224 



MOV 

#•173224, RS 

|READ THE ROM 

3099 

013702 

020105 




CMP 

R1,R5 

|X5 THE DATA THE SAME? 

3100 

013704 

001401 




BEQ 

.♦4 

|BR IF GOOD DATA 

3101 

013706 

104001 




HLT 

1 

| ERROR, DATA NOT THE SAME AS BEFORE. 

3102 

013710 

005724 




TST 

(R4) + 

IUPDATE DATA POINTER, 

3103 

013712 

000241 


* 


CLC 


I CLEAR THE CARRY BIT 

3104 

013714 

006103 




ROL 

R3 

IUPDATE THE SIMULATED 8WITHCH SETTING 

3105 

013716 

022703 

000040 



CMP 

#40, R3 

|HAVE ALL SETTING BEEN DONE 

3106 

013722 

001336 




BNE 

11 

|BR IF NOT DONE 

3107 

013724 

005337 

001232 



DEC 

ICOUNT 

| ITERATION COUNT DONE 

3108 

013730 

001327 




BNE 

TAG, A 

|BR IF NOT DONE 

3109 

013732 

012737 

177777 

173224 


MOV 

#-t, ##173224 

| WRITE SECOND TRAP VECTOR WITH -l 

3110 

013740 

005037 

173024 



CLR 

#•173024 

| ZERO THE FIRST VECTOR 

3111 

013744 

012700 

173024 



MOV 

•173024, R0 

ISET FOR TYPE OUT IF ERROR 

3112 

013750 

013701 

014032 



MOV 

LOC 1 , Rl 

ISET FOR TYPE OUT ROUTINE 

3113 

013754 

013705 

173024 



MOV 

#•173024, R5 

I SAME AS ABOVE 

3114 

013760 

020105 




CMP 

R1,R5 

|IS DEFAULT LINE SELECTED »TO LINE 1 

3115 

013762 

001401 




BEQ 

,♦4 

|BR IF DEFAULT EQUALS LINE 1 

3116 

013764 

104001 




HLT 

1 

|DATA NOT EQUAL TO LINE I 

3117 

013766 

012737 

177777 

173024 


MOV 

•«i# ##173024 

|WRITE A -1 TO FIRST VECTOR 

3118 

013774 

005037 

173224 



CLR 

#•173224 

1 ZERO SECOND VECTOR 

3119 

014000 

012700 

171224 



MOV 

•173224, R0 

ISET FOR TYPE OUT IF ERROR 

3120 

014004 

013701 

014032 



MOV 

LOCI , Rl 

1 GET DATA 

3121 

014010 

013705 

173224 



MOV 

##173224, R5 

IREAD ROM 

3122 

014014 

020105 




CMP 

Rl,R5 

1 IS LINE 1 DEFAULT LINE 

3123 

014016 

001401 




BEQ 

• <*>4 

|BR IF OK 

3124 

014020 

104001 




HLT 

1 

| ERROR LINE 1 NOT DEFAULT LINE 

3125 

014022 

004737 

014660 



JSR 

PC , EOP 

| TYPE END MESSAGE, 

3126 

014026 

000137 

013354 



JMP 

PRG4 

|GOTO PROGRAM 4 AGAIN 

3127 









3128 

014032 

000000 



loch 

0 



3129 

014034 

000000 



L0C2I 

0 



3130 

014036 

000000 



LOC3J 

0 



3131 

014040 

000000 



L0C4 | 

0 



3132 

014042 

000000 



FLAG4I 

0 
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1133 014044 005015 041412 040510 MCHANI , ASCII <15X1 2X1 2XCHANNEL / 

014060 041501 044524 040526 MACTV* .ASCII/ ACTIVATED,/ 

014071 015 040412 042104 MADDll .ASCII <1SX12>/ADDRESS 773024 CONTAINS! / 

014127 015 040412 042104 MADD2 ! .ASCII <15X12>/ADDRESS 773224 CONTAINS! / 

014164 .EVEN 

3134 014164 000001 DT.4AI % 

3135 014166 002 002 .SITE 2/2 

3136 014170 001252 TEMPI 

3137 014172 000001 DT.4BI 1 

3136 014174 006 002 .BYTE 6,2 

3139 014176 001254 TSMP4 

3140 

3141 014200 005015 051120 043517 MSG3I .ASCII 4 1 5X1 2> /PROGRAM NO . £l,2#3,4) / 

014232 006414 016412 077437 M$G4| .ASCII <MXi5Xi2XjSXj7X177X177Xl77>/SQFTWARE MAP IS AS POLLOWSI/ 

014276 005015 020012 054105 MSGS I .ASCII <1SX12X12»/ EXTENDED SOFTWARE MAP FOLLOWS./ 

014341 015 025012 000 MASTER! .ASCII <15X12>/*/ 

014345 007 006407 042412 M.ENDt .ASCII <7X7X15X12>/END PASS BM873-Y/ 

814372 MFAILJ 



014372 

005015 

053520 

020122 


.ASCII 

<1SX12>/PWR 

UP AFTER/ 



014410 

005015 

042522 

046101 


.ASCII 

<1SX&2*/REAL 

PWR FAIL/ 



014410 

000044 



M.DOLl 

.ASCII 

m 




014432 

005015 

037477 

000 

M.GMl 

.ASCII 

<15X12»/??/ 




014437 

015 

000012 


MCRLPl 

. ASCIZ 

<IIX12> 




014442 

000012 



MLFi 

.ASCII 

<42> 








.EVEN 





3142 

014444 




.KEY, TO, 

,R2! 




3143 

014444 

017702 

164536 



MOV 

8TKDBR, R2 

/ READ THE TTY KYBD 

BUFFER 

3144 

014450 

105777 

164534 



TSTB 

STPCSR 

/PRINTER READY?? 


3145 

014454 

100375 




SSL 

."4 

»BR IF NOT READY, 


3146 

014456 

010277 

164530 



MOV 

R2,fTPDSR 

l ECHO INPUTTED CHARACTER 

3147 

014462 

042702 

000200 



BXC 

#BIT7,R2 

/CLEAR BIT 7 FOR A 

SEVEN BIT CHAR 

3148 

014466 

022702 

000007 



CMP 

♦ 7/R2 

! WAS CNTR "G* HIT? 


3149 

014472 

001005 




BNE 

18 

f NO 1 


3150 

014474 

000005 




RESET 


(CLEAR THE WORLD 


3151 

014476 

005037 

177776 



CLR 

PS 



3152 

014502 

000137 

007150 



JMP 

START 

I GO TO TEST 


3153 

014506 

000002 



IS I 

RTI 


1 LEAVE HERE 



3154 


c 
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■ Pit 

MAINDEC 
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BM873 

UNIVERSAL RESTART LOADER 

DIAGNOSTIC, 

3155 

014510 

005037 

001244 

, PFAIL * 

CLR 

L8TEPR 


3156 

014514 

013746 

000004 


MOV 

814# *(SP) 


3157 

014520 

012737 

014550 000004 


MOV 

#11/984 


3158 

014526 

005737 

173000 


TST 

8# 1 7 3000 

/IS THIS PF REAL? 

3159 

014532 

000240 



NOP 

(TRAP IS CAUSED 

BY LOADER 

3160 

014534 

012737 

014560 000024 


MOV 

8PWR ,UP,9#24 

JITS REAL, PREPARE FOR PWR UP 

3161 

014542 

012637 

000004 


MOV 

(8P)+,8#4 


3162 

014546 

000000 



HALT 



3163 

014550 

022626 


18 * 

POP.SP 



3164 

014552 

012637 

000004 


MOV 

(SP)+, 8#4 


3165 

014556 

000000 



HALT 

/HARDWARE ERROR, 

BOOT DIDN'T FORCE 

3166 




1 HIGH ADDR LINES AND LOAD BUTTON 

WAS ACTIVATED 

3167 

014560 

012737 

014510 000024 

PWP.UPI 

MOV 

#, PFAIL, 8#24 


3168 

014566 

012706 

001200 


MOV 

(STACK, SP 


3169 

014572 

005000 



CLR 

R0 

(SET DELAY 

3170 

014574 

062700 

000001 


ADD 

81/R0 

/WAIT FOR TTY 

3171 

014600 

001375 



BNE 

»*4 

t 

3172 

014602 

104401 

014372 


TYPE 

, MFAIL 

/TYPE FAILED, 

3173 

014606 

005037 

177776 


CLR 

PS 

/SET STATUS TO ZERO 

3174 

014612 

000177 

000000 


JMP 

0PRG.NO 


3175 

014616 

000000 


PRG.NO* 

0 



3176 

014620 



NO , TRAP | 



3177 

014620 

011637 

014656 


MOV 

(SP) ,XSTORE 


3178 

014624 

032716 

100000 


BIT 

•BIT15, (SP) 


3179 

014630 

001410 



BED 

18 


3180 

014632 

011600 



MOV 

C SP) , R0 


3181 

014634 

104004 



HLT 

4 


3182 

014636 

012706 

001200 


MOV 

(STACK, SP 


3183 

014642 

005037 

177776 


CLR 

PS 


3184 

014646 

000177 

177744 


JMP 

8PRG.NO 


3185 

014652 

104003 


1 8 I 

HLT 

3 


3186 

014654 

000002 



RTI 



3187 

014656 

000000 


XSTOREi 

0 



3188 








3189 

014660 

005037 

001244 

EOPI 

CLR 

LSTERR 


3190 

014664 

005037 

015114 


CLR 

LPTFLG 


3191 

014670 

104401 

014345 


TYPE 

,M,END 


3192 

014674 

104401 

014736 


TYPE 

, VERSON 


3 1 9 3 

014700 

01 1701 

000042 


MOV 

9#42,R1 


3194 

014704 

001413 



BEQ 

XI 


3195 

014706 

022737 

010400 014616 


CMP 

IPRGl, PRG.NO 


31 96 

014714 

001002 



BNE 

.46 


31 9 7 

014716 

000137 

013354 


JMP 

PRG4 


3198 

014722 

004711 


LOGIC* 

JSP 

PC, (Rl) 


3199 

014724 

000240 



NOP 



3 200 

014726 

000240 



NOP 



3201 

014730 

000240 



NOP 



3202 

014732 

000240 



NOP 



3203 

014734 

000207 


Xll 

RTS 

PC 


3204 

014736 

000101 


VERSON* 

101 


/SEVEN BIT ASCII FOR DEFAULT 
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3205 

3206 

3207 

3208 


3209 

3210 

014740 

014746 

032737 

001402 

001000 

177570 

3211 

3212 

3213 

3214 

3215 

014750 

014754 

013716 

000002 

001230 


3216 

014756 

013737 

000004 

001000 

3217 

014764 

010537 

001002 


3218 

014770 

017605 

000000 


3219 

014774 

062716 

000002 


3220 

3221 

3222 

3223 

015000 

015006 

015010 

015012 

032737 

001013 

105715 

001411 

010000 

177570 

3224 

3225 

015014 

015020 

005737 

001014 

015114 


3226 

3227 

015022 

015026 

105777 

100375 

164162 


3228 

3229 

015030 

015034 

112577 

000761 

164156 


3230 

015036 

013737 

001000 

000004 

323 1 
3232 

015044 

015050 

013705 

000002 

001002 


3233 

3234 

015052 

012737 

015070 

000004 

3235 

3236 

3237 

015060 

015064 

015086 

005777 

000240 

000404 

164114 


3238 

3239 

3240 

015070 

015074 

015076 

005037 

022626 

000740 

015114 


3241 

3242 

015100 

015104 

105777 

100375 

164074 


3243 

3244 

3245 

3246 

3247 

3248 

015106 

015112 

015114 

1 12577 
000732 
000000 

164070 


3249 

015115 

005037 

015114 


3250 

3251 

015122 

015130 

032737 

001406 

010000 

177570 

3252 

3253 

015132 

015136 

105777 

100003 

164052 


3254 

015140 

112777 

000207 

164044 

3255 

3256 

015146 

015154 

032737 

001075 

020000 

177570 

3257 

3258 

015156 

015162 

021637 

001404 

001244 



fCHECK FOR FREEZE ON CURRENT DATA 


.SCOPli 

BIT 

f SW09# SWR 


BEG 

If 


MOV 

LOCK'(SP) 

If l 

RTI 



I TELETYPE OUTPUT ROUTINE 

, TYPE! 

MOV 

194*191000 


MOV 

RB* 191002 


MOV 

•CSP)#RS 


ADD 

92*CSP) 

If 1 

BIT 

M«ia«3NR 


BNE 

II 


T8TB 

(RB) 


BEQ 

II 


T8T 

LPTFLG 


BNE 

41 

2fl 

TSTB 

•TPC8R 


BPL 

21 


MOVB 

(RS)*v ITPDBR 


BR 

If 

it* 

MOV 

19 1000r l|4 


MOV 

RTI 

0il002vRS 

4ft 

MOV 

•81*194 


TST 

NOP 

ILPTCIR 


BR 

SI 

5fl 

CLR 

POP, BP 

LPTFLG 


BR 

11 

«f 1 

TSTB 

ILFTCGR 


BPL 

41 


MOVB 

CRS)4i ilptdbr 


BR 

1* 

LPTFLGl 

0 



1 ERROR 

HANDLER 

#HLT| 

CLR 

LPTFLG 


BIT 

98W12* 8WR 


BEQ 

XBX 


TSTB 

•TPCSR 


BPL 

XBX 


MOVB 

9207 * ITPDBR 

XBX I 

BIT 

fSNlSvSNR 


BNE 

HALTS 


CMP 

(8P) #L$TERR 


BEQ 

19 
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3259 

015164 

011637 

001244 


MOV 

( SP) , LSTERR 

3260 

015170 

105037 

001302 


CLRB 

ERRFLG 

3261 

015174 

104402 


tfl 

SAV05 


3262 

015176 

011605 



MOV 

(SP),R5 

3263 

015200 

162705 

000002 


SUB 

92*R5 

3264 

015204 

011504 



MOV 

CR5)#*4 

3265 

015206 

006304 



A8L 

R4 

3266 

015210 

061504 



ADD 

CRB) ,R4 

3267 

015212 

006304 



ASL 

R4 

3268 

015214 

042704 

177001 


BIC 

#177001 # R4 

3269 

015220 

062704 

016064 


ADD 

9,ERRTAB,R4 

3270 

015224 

012437 

015320 


MOV 

(R4)+,ERRMSG 

3271 

015230 

012437 

015332 


MOV 

CR4)*vDATAHD 

3272 

015234 

011437 

015344 


MOV 

(R4) »DATABP 

3273 

015240 

105717 

001302 


TSTB 

ERRFLG 

3274 

015244 

001403 



BEQ 

TYPMSG 

3275 

015246 

005737 

015344 


TST 

DATABP 

3276 

015252 

001030 



BNE 

TYPDAT 

3277 

015254 

104401 


TYPMSGl 

TYPE 


3278 

015256 

016054 



MBRfiPC 


3279 

015260 

104405 



CNVRT 


3280 

015262 

015416 



ERTAB0 


3281 

015264 

104401 



TYPE 


3282 

015266 

011036 



VERS 


3283 

015270 

105777 

1637 14 


TSTB 

ITPCSR 

3284 

015274 

100375 



BPL 

• »4 

3285 

015276 

113777 

014736 163706 


MOVB 

VERSON, ITPDBR 

3286 

015304 

104401 



TYPE 


3297 

015306 

014437 



MCRLF 


3288 

015310 

112737 

177777 001302 


MOVB 

9-1# ERRFLG 

3289 

015316 

104401 



TYPE 


3290 

015320 

000000 


ERRMSGl 

0 


3291 

015322 

005737 

015332 


TST 

DATAHD 

3292 

015326 

001402 



BEQ 

TYPDAT 

3293 

015330 

104401 



TYPE 


3294 

015332 

000000 


datahdi 

0 


3295 

015334 

005737 

015344 

TYPDAT | 

TST 

DATABP 

3296 

015340 

001402 



BEQ 

RESREG 

3297 

015342 

104404 



CONVRT 


3298 

015344 

000000 


DATABPl 

0 


3299 

015346 

104403 


RESREGt 

RE805 


3300 

015350 

005737 

177570 

HALTS! 

TST 

SWR 

3301 

015354 

100005 



BPL 

EXITER 

3 302 

015356 

010046 



PUSHR0 


3303 

015360 

016600 

000002 


MOV 

2CSP),R0 

3304 

015364 

000000 



HALT 


3305 

015366 

012600 



POPR0 


3306 

015370 

005237 

001242 

EXITERI 

INC 

ERRCNT 

3307 

015374 

032737 

000400 177570 


BIT 

9BIT8 » SWR 

3308 

015402 

001404 



BEQ 

If 

3309 

015404 

012706 

001200 


MOV 

•STACK, SP 

3310 

015410 

000177 

177202 


JMP 

9PRG.N0 

3311 

015414 

000002 


IS* 

RTI 


3312 

015416 

000001 


ERTAB0I 

1 




^argument op TRAP X8 extracted 

} AND USED AS OFFSET TO OBTAIN POINTER 
I TO SELECTED SUBROUTINE 
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BM87JD. 

PU 

MAINDEC 

• U-DIBMC 

>»D 

BM873 

UNIVERSAL RESTART LOADER DIAGNOSTIC. 

3421 

016052 

000136 




JMP 

0(8P)^ |G0 TO SUBROUTINE 

3422 

016054 

005015 

041520 

020072 

merrpc i 

.ASCII 

<15»<12>/PC| / 

3423 

016062 

000 






3424 


016064 



.EVEN 



3425 

016064 




.ERRTABt 


3424 

016064 

000000 




0 


3427 

016066 

000000 




0 


3428 

016070 

000000 




0 


3429 

016072 

016122 




EM0 


3430 

016074 

016330 




DH0 


3431 

016076 

016466 




DT0 


3432 

016100 

016164 




EMI 


3433 

016102 

016415 




DH1 


3434 

016104 

016510 




DTI 


3435 

016106 

016223 




EM2 


3436 

016110 

016430 




DH2 


3437 

016112 

016516 




DT2 


3438 

016114 

016270 




EM3 


3439 

016116 

016415 




DH1 


3440 

016120 

016510 




DTI 


3441 

016122 

005015 

047522 

020115 

EM0| 

.ASCII 

<15><1 2>/R0M READ DATA COMPARISON ERROR,/ 


016164 

005015 

051127 

052111 

EMU 

.ASCII 

<15><12>/WRITTING ROM FAILED TO TRAP,/ 


016223 

015 

052412 

042516 

EM2I 

.ASCII 

<15><12> /UNEXPECTED TRAP WHILE READING ROM,/ 


016270 

005015 

040506 

040524 

EM3I 

.ASCII 

<IB><12> /FATAL TRAP, ROM PC ON STACK,/ 


016330 

005015 

051440 

043117 

DH0| 

•ASCII 

<15><12>/ SOFT ROM/ 


016350 

005015 

042101 

051104 


.ASCII 

<15><12> /ADDRESS ADDRESS EXPECTED FOUND / 


016415 

015 

040412 

042104 

DHil 

.ASCII 

<15X1 2>/ ADDRESS / 


016430 

005015 

041520 

047440 

DH2I 

.ASCII 

<1BX12>/PC OF TRAP ROM ADDRESS / 



016466 



• EVEN 



3442 

016466 

000004 



DT0I 

4 


3443 

016470 

006 

003 


.byte 

6,1 


3444 

016472 

001270 



SAVR4 



3445 

016474 

206 

003 



.BYTE 

206,3 

3446 

016476 

001260 




SAVR0 


3447 

016500 

006 

004 



.BYTE 

6,4 

3448 

016502 

001262 




8AVR1 


3449 

016504 

006 

002 



.BYTE 

6,2 

3450 

016506 

001272 




BAVRB 


3451 








3452 

016510 

000001 



DT1I 

1 


3453 

016512 

206 

002 



.BYTE 

206,2 

3454 

016514 

001260 




8AVR0 


3455 








3456 

016516 

000002 



DT2I 

2 


3457 

016520 

006 

010 



.BYTE 

6,1. 

3458 

016522 

014656 




XSfOftE 


3459 

016524 

206 

002 



• BYTE 

206,2 

3460 

016526 

001260 




8AVR0 


3461 








3462 

016530 

000000 



TEMPI 

0 


3463 


016572 




,•,♦40 


3464 

016572 

000000 



MDATAl 

0 


3465 


016634 




.■.♦40 


3466 

016634 




CORMAXI 
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3467 


000001 


END 
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MSG3 

014200 

2544 

3141# 








MSG4 

014232 

2900 

3141# 








MSGS 

014276 

2928 

3141# 








M.DOL 

014430 

3141# 









M , END 

014345 

3141# 

3191 








M,QM 

014432 

2568 

3813 

2655 

2888 

3141# 





NEXT 

001226 

689# 









NMATCH 

010272 

2500 

2580# 








NOROM 

010172 

2446 

2877# 








NOROMS 

010202 

2877 

2980# 








NO.TRA 

014620 

2595 

2681 

2945 

305) 

3066 

3088 

1090 

3176# 


PASCNT 

001240 

694# 









PC *1000007 

363# 

2682# 

3013* 

3125* 

3198# 

3203* 




POPR0 * 

012600 

377# 

3305 






POP, BP* 

022626 

379# 

3163 

3239 







POPiSP* 

005726 

175# 









PRG, NO 

014616 

2439# 

2993* 

2680* 

3787# 

1044* 

3174 

3175# 

3194 

3195 

PPC.l 

010430 

2595# 

2664 








PRGl 

010400 

3464 

2472 

2490 

2495 

2558 

2591# 

2593 

2661 

3195 

PRG2 

011062 

2561 

2680# 

2746 

2753 






PRG3 

012116 

2564 

2786# 

2787 







PRG4 

013354 

2567 

3042# 

3044 

3081 

3126 

3197 




PS * 

177776 

369# 

3151* 

3173* 

3181* 







PUSHR0® 010046 
PUSH1S* 005746 
PUSH2SO 024646 
PWR.UP 014560 
RESREG 015346 
RESTRT 007140 
RES0S ■ 104403 
RETURN 001224 
RUN, 3 013004 
RUN 3 012754 


3310 


3761 

374# 

378# 

3160 

3296 

670 

735# 

686 # 

2947# 

2943# 


3302 


3167# 

3299# 

2432# 

3299 

3015 

1014 


R0 

a %000000 

356# 

2596* 

2601 

2603 

2604 

2606 

2607 

2616 

2619 

2627 

2633* 

2636 

2638 



2639 

2641 

2642* 

2692 

2665 

2651 

2689# 

2696 

2697 

2701 

2702 

2705 

2706 



2710 

2711 

2714 

2721# 

2726 

2727 

2729 

2732 

2733 

2737 

2738 

2744* 

2898* 



2903 

2904 

2906 

2909 

2910 

2912 

2917 

2930# 

2947* 

2952 

2954 

2955 

2957 



2958 

2967 

2970 

2978 

2983* 

2987 

2969 

2990 

2992 

2993* 

3003 

3006 

3009 



3060* 

3065# 

3072* 

3091# 

3097* 

3111# 

3119# 

3169# 

3170* 

3180# 

3303# 

3323 

3342# 



3346* 

3356 

3378* 

3397 

3402* 









R1 

*4000001 

357# 

2605# 

2609 

2696# 

2698 

2705# 

2707 

2726* 

2728 

2732* 

2734 

2789* 

2790 



2817# 

2818 

2821* 

2828 

2829 

2831# 

2832 

2835 

2846* 

2848* 

2850# 

2852* 

2854# 



2903# 

2905 

2909# 

2911 

2959# 

2960 

3092# 

3094 

3099 

3112* 

3114 

3120* 

3122 



3193# 

3198 

3324 

1329# 

3330 

3331 

3332 

3333 

3377# 

3396 

3403# 



R2 

*4000002 

358# 

2509 

2515 

2521 

2827 

2533 

2539 

2550 

2554 

2749 

2799 

2801 

2803 



2805 

2808 

2810 

2825 

2837 

2842 

2844# 

2852 

2868 

2870 

2879# 

2880 

3143* 



3146 

3147# 

3148 

3325 

3376* 

3395 

3404# 







R3 

*4000003 

359# 

2546# 

2584* 

2556 

2559 

2562 

2565 

2600# 

2614* 

2635* 

2648* 

2692* 

2701# 



2710* 

2722# 

2729# 

2737* 

2964* 

2873# 

2875# 

2877* 

2880* 

2884 

2886* 

2915* 

2916 



2917 

2925 

2926 

2951# 

2965# 

2986# 

2999* 

3083# 

3087 

3104* 

3105 

3326 

3343# 



3344# 

3345# 

3346 

3355# 

3356# 

3364# 

3367* 

3375# 

3394 

3405* 




R4 

*4000004 

360# 

2545# 

2552* 

2998# 

2603 

2606 

2608 

2619 

2626* 

2949* 

2954 

2957 

2959 



2970 

2977# 

3052* 

3070# 

3084* 

3092 

3102 

3264# 

3265# 

3266# 

3267# 

3268# 

3269# 



3270 

3271 

3272 

3327 

3340# 

3341 

3348* 

3350# 

3352* 

3374# 

3393 

3406# 
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R5 *%000005 

361# 

2607* 

2609 

2958* 

2960 

3051* 

3062 



3113* 

3114 

3121* 

3122 

3217 

3218# 

3222 



3266 

3328 

3341* 

3353* 

3373# 

3392 

3407# 

SAVPC 

001276 

712# 

3314 

3308* 





SAVR0 

001260 

705# 

3397* 

3402 

3446 

3454 

3460 


SAVR1 

001262 

706# 

3396* 

3403 

3448 




SAVR2 

001264 

707# 

3395* 

3404 





SAVR3 

001266 

708# 

3394* 

3405 





SAVR4 

001270 

709# 

3393* 

3406 

3444 




SAVR5 

001272 

710# 

3392* 

3407 

3450 




SAVSP 

001274 

711# 







SAVSR1 

0101S4 

2433* 

2570# 

2621 

2650 

2719 

2923 

2972 

SAV05 ■ 

104402 

733# 

3261 






SCOP1 * 

104400 

729# 

2618 

2657 

2969 

1008 



SP a 

%000006 

362# 

2434* 

2445* 

2449 

2452* 

2456 

2458 



2753# 

2822* 

2840* 

2865* 

2882* 

2996* 

3046* 



3177 

3178 

3180 

3102* 

3211* 

3218 

3219# 



3322* 

3323* 

3324* 

3325* 

3326* 

3327# 

3328* 



3388 

3414* 

3415* 

3416* 

3417# 

3418# 

3419* 

SPACNT* 

013723 

3332* 

3362 

3365* 

3382# 




SRV , A 

012442 

2809 

2863# 






SRV ,D 

012256 

2804 

2815# 






SRV.L 

012566 

2800 

2897# 






SRV , P 

012560 

2802 

2891# 






5RV.R 

012754 

2807 

2942# 






STACK a 

001200 

370# 

2434 

2645 

2996 

3046 

3064 

3089 

START 

007150 

668 

2434# 

2439 

3152 




STFLG 

001301 

717# 







ST.VEC 

012170 

2788 

2797# 

2839 

2883 




SV0 5 

013736 

3392# 







SWR * 

177570 

367# 

2435 

2612 

2646 

2684 

2963 

2997 


SW00 

SW01 

SW02 

SW03 

SW04 

SW05 

5W06 

SW00 

SW09 

SW10 

SWll 

SW12 

SWU 

SW14 

SW15 

TABLE 

TAG, A 

TEMP 

TEMPI 

TEMP2 

TEMP3 

TEMP4 


000002 


000010 
000020 
000040 
000100 
000400 
001000 
002000 
004000 
0 1 0 0 0 0 
020000 
040000 
100000 
010156 

013610 

016530 

001246 

001250 

001252 

001254 


330# 
349# 
348# 
347# 
346# 
345# 
344# 
343# 
342# 
341# 
340# 
339# 
3 30# 
337 # 
336# 
2433* 
2692 
1049 
1321 
700# 
701# 
702# 
703# 


3220 

3255 


2460# 

2699 

3083# 

3342 

3321* 

3 3 20* 

2697# 

2698* 


2468* 

2708 

3108 

3372* 

3372 

3329 

2706* 

2707# 


2486# 

2789 


3462# 


2727* 

2728* 


2494# 

2898 


2733* 

2734* 


2511* 

2949 


2759 

2761 


3078# 

1228 


3079 

3231* 


2459 

3064* 

3257 

3373 

1420* 


3168 


3209 


3093* 

3243 


2476* 

3089* 

3259 

3374 

3421 


3182 


3094 

3262* 


2480 

3156* 

3262 

3375 


2482 

3161 

3303 

3376 


2517* 2523* 2529# 2535* 


3098* 

3263* 


3099 

3264 


2483 

3164 

3309* 

3377 


2645* 

3168# 

3320 

3378 


3307 


2904* 

2765 


2910* 

2818* 


3024 

2832* 


3054* 

2905# 


3076* 

2911* 


3136 

3021 3026 
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